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MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 91:03:98 age 


14-Sep-1 
MODULE MAILSMAIL( 2TITLE "VAX/VMS PERSONAL MAIL UTILITY’ 
IDENT = ‘vb4-001" d= 


0-74 
L.SR 


On 


. P 
I JMAIL .B32;2 
BEGIN 


SRR AERA AREA AAA AERA AERA AAA EAE EEREAEAAEEREREEES 


t® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USE 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH 


D AND COPIED 
pete we WITH THE 


® 

® 

® 

® 

® 

® 

*® 

® 

: 0 * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
' * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
SHOULD IT * 

® 

*® 

® 

® 

® 

® 

* 


E 
'® AND NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
CH IS NOT SUPPLIED BY DIGITAL. 
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$ 00 '® SOFTWARE ON EQUIPMENT WHI 

gM TS 

3 O08 PETITIIILIL ILL LLL LLL LLL Liiiiitiiiiiiiiiiiiittit 
¢ O36 '++ 

H Oe FACILITY: VAX/VMS MAIL UTILITY 

3 003 i ABSTRACT: Entry point to MAIL. Dispatches according to type of 

; Oos use: CLI command, interactive, or network slave job. 

3 003 i This program was tg Aa written as an exercise by the 

3 003, : author to learn VAX assembler coding. The first versions 

3 003 : were based on the ‘'PNOTES" pre ram written by Kim Mast for 
; 4 the University of Illinois PLATO system. 

4 0040 i Two of the original goals of the design were etapt testy of 
4 0041 : use and simplicity of operation. The latter goal suggested 
4 98 : the use of the operating system's own indexed filing system, 
: nk namely file directories. 

4 045 i Note also that this program does not purport to be a general 
4 0046 ! purpose “electronic mail system’ or ‘office automation 

4 0047 ! system’. It is simply a mail utility for normal users of 

: sk a VAX/VMS system. 

3 9050 i ENVIRONMENT: NATIVE/USER MODE 

5 005¢ AUTHOR: Len Kawell, CREATION DATE: 20-FEB-1979 

35 MODIFIED BY: 

5 036 i v04-001 BLS0252 Benn Schreiber 12-SEP-1984 

5 005 : Do not drop NETMBX privilege. 
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v03-027 noroge! Robert Posniak Je-JUL=1984 


first character Rn yt 
a strip it ange c XYZ 
to TPU. Enanee Stas SASE. to *ORESERASE _PASTEBOARD 


ROPOO15 Robert Posniak 02-JUL-1984 
Do net concatenate the sender's username and 
nodename if the username string is null. 
ROP0006 Robert Posniak 12-JUN-1984 
Clear proper bits in priv mask. 


Implement SEND/ATTACH for Message Router 


BLS0288 Benn Schreiber 21-MAR-1984 

Make raised priv. vector global 
o.s02 80 Benn Schreiber 4=-MAR-1984 

Treat subjest string of all blanks as no subject 

in network input. 
BLS0272 Benn Schreiber 18-FEB-1984 13:34:05 
Implement server loop, enlarge SYSS$NET buffer. 
BLS0263 Benn Schreiber 22-Jan-1984 


Complete default keypad. Disallow SPAWN if captive 
bit set. Send end-of-users oe sEnaetenesy after 
sending all the user names to chec 


v03-019 BLS0255 Benn Schreiber 28-Dec-1983 
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Convert trnlogs to trninm. Convert getdev to 

getdviw. Use new global flags. Upcase to-list watching 
votes. In slave mode, purge working set while waiting 
or first message record. 


pu sors 9 Benn Schreiber 8-Dec-1983 
Put back the deleting of MAIL.TMP files. 
BLS0246 Benn Schreiber 8-Nov-1983 


Move new mail count to VMSMAIL.DAT. Modify prompt. Don't 
delete MAIL.TMP. Add support for cluster Lede enhancements. 


BLS0240 Benn Schreiber 15-Sep-1983 
Complete alternate net protocol interfacing. 


BLS0229 Benn Schreiber 16-Jul-1983 

Implement neyvers ploct mode. Make pagesize 

weer large if batch mode. Get new message count from 
mail file rather than SYSUAF. 


BLS0227 Benn Schreiber 29-Jun-1983 
sete ue proecttios in REPLY command, disable cli defaulted 


v03-013 BLS0224 Benn Schreiber 11-Jun-1983 


| 
BLS0292 Benn Schreiber 8-APR-1984 
| 
| 


kK 13 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 701: VAX-11 Bliss-32_ V4.0-742 P 
v04-001 13788871382 93:25:58 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 se a3 
o Correct argument to SMGSCREATE_VIRTUAL_KEYBOARD in cli_command 
v03-012 BLS0222 Benn Schreiber 7-May-1983 


Correct SEND for case of COPY_SELF SEND and 
distribution List. 


v03-011 BLS0220 Benn Schreiber na pa 
ET MAI RE 


Add support for SET AUTO, SET MAIL_DIRECTORY, keypad 
input, and ERASE commands. 
v03-010 BLS0218 Benn Schreiber 18-Apr-1983 
Make defualt spec ‘.txt’ in lookup_file 
v03-009 BLS0217 Benn Schreiber 12-Apr-1983 
Support SEND/SELF, etc. 
v03-008 BLS0214 Benn Schreiber 27-Mar-1983 


Add REPLY/EXTRACT. In cli_command, check addressees 
first before getting message text if terminal input 


v03-007 BLS0211 Benn Schreiber 13-Mar-1983 
Extensive rework for isam mail files. Correct privilege 
handling. Implement global CTRL/C handling. Lookup file 
on SEND, REPLY before prompting for ‘'to’’. Begin incorporation 
of multi-threaded server 


v03-006 BLS0197 Benn Schreiber 9-Dec-1982 
Implement SET PERSONAL_NAME command. Break out SET, SHOW 
commands and handling of VMSMAIL.DAT into separate files. 


v03-005 BLS0193 Benn Schreiber 12-Nov-1982 
Correct error pends tng in NETJOB reading message text. Collapse 
GETJPI"s so only one is done. Add exit handler to clean 
up network Links. 


v03-004 BLS0189 Benn Schreiber 14-Oct-1982 
Convert command parsing from TPARSE to CLISDCL_PARSE. Add a 
few new features, such as show for/user=wilduser, search/file 
and DELETE and READ command interlock on message. 


v03-003 BLS0184 Benn Schreiber 20-Aug-1989 
Delete MAIL.TMP files on entering mail in interactive mode. 
This prevents inadvertantly send + he old message left lying 
around. Add SET FORW/USER= and SHOW FORW/USER=. Do not 
put sender's node on his name if it's the same as our node. 
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v03-002 BLS0179 Benn Schreiber 26-Jul-1982 
penecese automatic forwarding. Add check for infinite forward 
oops. 

v03-001 BLS0177 Benn Schreiber 20-JUN-1982 


Add info on output device for Listing size handling and 

fix a few bugs ; Add MAIL/EDIT DCL qualifier which implies | 
SEND/EDIT and REPLY/EDIT by default. Add Support for automatic | 
forwarding, sug lenented by reading SYSSSYSTEM:VMSMAIL.DAT, an 

ISAM file. Add SET CNOJFORWARD, and SHOW FORWARD commands. 

Honor the DISMAIL flag in the UAF record. 
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VAX/VMS PERSONAL MAIL UTILITY 


MPL INK 
RACT_MESSAGE, 
TER OUTPUT, 
GETMSG, 


SG, 
ET DEVDIR, 


MAIL 
MAILSUPCASE.Q 
SMGSCREATE_PASTEBOARD, 
SMGSERASE_PASTEBOARD 
SMGSCREATE_VIRTUAL_KEYBOARD, 
SMGSCREATE~ 
SMGSDELETE-VIRTUAL_KEYBOARD, 
SMGSDEF INE-KEY, 

STRSAPPEND;, 

STRSCONCAT, 

STRSCOPY Dx, 

STRSFREET_DX, 

STRSTRIM, 

SYS$FAO 

UTILSGETFILENAME, 
UTILSREPORT_10_ERROR; 


MAIL$T_RD_RAB : SBBLOCK 
MAILSQ"MAIL_MAI : SBBLOCK, 


Delete old MAIL.TMP files 


Delete Links with no addressees 


Copy message text to file 
Turn escapes into ‘$' 

Get message text and fao it 
Get message text 

Get device and directory spec 
Condition handler 

Add addressee to list 
Close nessage file 


e 
Get from ayes ineut 
Get record of current ISAMsg 
Get record of current message 


' Get new mail count 


Get uaf record 

Initalize addressee list 

Get ISAM message info 

Get message information 
Allocate mem for iosubs rtns 
Send end-of-users and to-List 
Open default mail file 

Open syetes uaf 

Open MAIL info file 

Put to sys$output 

Read input, foreign net 
Rewind current ISAM message 
Rewind current message 

Send message to addressee(s) 
Set full name string 

Test if SUBJ: Line present 
Update message header record 
Convert string to upper case 
Ditto, but not inside quotes 


String append 

String copy and concatenate 
String copy ’ 
Deallocate dynamic string 
Trim trailing blanks 
Formatted ascii output 

Get filename from FAB/RAB 
Report 1/0 error 


RAB for mail file i/o 
Descriptor for ‘MAIL.MAI' 


Pp 
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MSGTRAN : BYTE, 


VAX-11 Bliss 


Next action for GET. 1_MSG 


-1984 01:0 

Orso § 12:42: 3:98 
MAIL$B } 
MAILSCOMMAND_ TABLE i MAIL command tab 
MAILSL_CURMSG : REF SBBLOCK i Pointer to MMB for msg 
MAILSL-USRSYSBUF : REF $BBLOCK, i User's vmsmail record 
MAILSL_MSG_NUM: WOR ° i Current message number 
MAILSL_MSG_RADR:LONG, i Current message record addr 
MAILSW_MSG_RSIZ:WORD, i Current message record size 
MAILSL_MSG_STS: LONG, i Current message status 
MAIL$Q_MSGNAME: BL KE BYTE). i Default message file name 
MAILSQ_MSGTYPE: BLOCKL,BYTEJ, i Default message file type 
MAIL$T—UAF_BUFF: REF SBBLOCK: i Uaf record buffer 
EDI TNAM_BUF BLOCK(64,BYTE] ! Edit logicalname buf 

MAILSGL_FLAGS : SOBLOCKEA3, ! MAIL control ay 
MA ILSL_SMG_DIS ISPLA ! Display id from SMG 
MAILSL~SMG-KEYBOARD, : Keyboard id from SMG 
MAILSL_SMG_KEYTABLE, ! Keytable id from SMG 
MAILSGC_BIGBUFSIZ : LONG INITIAL(127), ! Size of big buffer 
MAILSGL_BIGBUFFER : REF S$BBLOCK, ! Address of buffer 
MAILSGL_SYSFLAGS : $BBLOCK(4) ! system-wide control flags 
MAIL$L_SIZLIM : LONG INITIAL(S), i If > this, then write to file 
MAILSL_MYUIC, ' UIC of user 
MAILSL_MYPID ! PID of user 
MAILSQ-ATTDESC : DYN DESC_DECL, i Send/attach for mr 
MAIL$Q~CLUNODES : DYN _DESC_DECL, ! Descriptor of cluster nodes 
MAILSO~ SYSPRVMSK: BLOtk 8, BYTE) ' Mask to enable/disable SYSPRV 

PRESET(CPRV$V_SYSPRVJ = 1), 
MAIL$Q_PROCPRIV : $88 OcK(8) ' Process La resss es 
MAIL$Q~INPTRAN: BLOCK(8, BYTE, i SYS$INPUT translation 
MAILSL_INPCLASS : VOLATILE, ! DVIS_DEVCLASS for input 
MAILSL_INPDEVDP : VOLATILE, ' DVIS_-DEVDEPEND2 for input 
MAILSL_OUTCLASS : VOLATILE, ! DVIS_DEVCLASS for output 
MAILSL_OUTDEVDP : VOLATILE, ! DVIS_DEVDEPEND2 for output 
ATES OUTLINE ! Number of Lines for output 

MAIL$Q_EDI TNAM_ DESC: VECTORC2,LONG) ! Edit logical name desc 

INITIAL (LONG (64 ,EDITNAM_BUF)), 

ILSB_DFW : BYTE “! True if should use FOP=DFW 
MAIL$W_TTCHAN : WORD, ; atone for terminal 
MAIL$Q_USERNAME :BLOCK(8, BYTE), ! Username descriptor 
MAIL$G_CNC SBBLOCKCCNCT C_LENGTH*RABSC BLN] !CNCT bloc 

PRESET(CCNCT-B_FILRA FAB 
CCNCT_B_FILRFM MJ = FABSC_VAR 
MAIL$Q_SYSNODE: S$BBLOCKCDSC$C_S_BLNI, } DeserTptor’ for SYSS$NODE 
' translation 
MAIL$Q_SYSNODE2: pareeyy” DSC$C_S_BLN ' Same thing with '::° on end 
ESET( COSC$B-DTYPE] = DSCSK_DTYPE_ 
DSC$B"CLASS] = DSCSK-CLASS"DS, 
MAIL$Q_CALEDTNAM : DYN_DESC_DECL, ‘editor from ‘callable_editn' 
MAIL$Q_-PROTOCOL : DYN_BESC_BECL, jescriptor of network protocol 
' ima 
MAILSQ_MAILDEF : DYN DESC _DECL, 'dev/dir + "MAIL. MAI* 
MAILS$Q-USERDEF: DYN_BESC_BECL; ‘Descriptor of user's mail 


GLOBAL BIND 


' directory 


-32 V 
DISKSVMSMASTER: MA AIL. SRCIMAIL. B32; 2?” 


VAX/VMS PERSONAL MAIL UTILITY 


+r So 
oO 


WN" OVODONOUEWN-"OVOOnNOu o 


ND 
ba =BUFF Ee = MAIL See C 


ey eee ee Ay 


WWW ANNA AAA NAAN St 


14 

1b-Se 1984 01:01: VAX=11 Bliss-32 V4 

1ereeen13be 93:02:58 
CNCTCCNCT_Q_TODESC) : $BBLOCK, "To" string 
G_CNCTCCNCT-Q SUBJDESC) : Pe SB6L Subj" string 
ATL$G_CNCTCONCT Q FROADE SC $BBLOCK, !and user 
IL$G_CUNCTCCNCT_T_RAB) : S$BBLOCK; 
NCTCCNCT_T BUFFER} S$BBLOCK, 
CTCCNCT_T_RABJ : SBBLOCK; 


! Mask returned from dis_ctrl 
none parsed in tparse 


: VECTORC2,LONG), emember privs we added 
VECTORCNAMS$C_MAXRSS, Byte). . Temporary filename buffer 
BITVECTORCE327, CLI flags vector 
LONG (the status 
BITVECTORL32), i Flags from DCL MAIL/EDIT 
BYTE, ! es if /EDIT=REPLY=EXTRACT 

ue if CLI signalled parse error 
VECTORCUAF$S_USERNAME, avied, ! Username buffer 
VECTOR(64,BYTE), SYSS$NODE translation buffer 
$SNAM_DECL, MS file NAM block 


$FAB_DECL, ! and FAB 


verre a LONG] ' For SDCLEXH 
AL_(O,EXIT_ROUTINE,1,EXIT STATUS), 
OCKE8) \“TMP Filename descriptor 
* PRESET ( DSCSA_POINTER] = HP. —ESNAM 
BLOCK(8,BYTE), ! Message Tile descriptor 
DYN_DESC_DECL. 
DYN-DESC~DECL, 
DYN“DESC~DECL, 
DYN~DESC~DECL, 
DYN_DESC DECL, 
DYN, DESC_DECL; 


MAIL$Q_ENHANCED_PRIVS = ENHANCED_PRIVS; 
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SSSSSSSSSYSSSSSS SESE SS 


UPLIT('a") 
SDESCRIPTOR(',"), 
SDESCRIPTOR('/") 
SDESCRIPTOR('SYS$INPUT’ ) + SBBLOCK, 
UPLIT( WORD(4) ' Get process status S$GETJPI 
WORD(JPI$_STS), | List 
LONG(PROCSTS), 
LONG(O) 
WORD (UAFSS USERNAME) , ! Get username List 
WORD(JPI$_OSERNAME), 
LON NGCUSERRARE) 
LONG(MAIL$Q@ ey 
WORD (8) rocess privs 
WORD (JP{$_PRO cprivy: 
LONG(MAIL$Q_PROCPRIV), 


DISKSVMSMASTER: CMAIL.SRCIMAIL.B32; 2° 


> 
wv 
p=] 
oO 
on 
£~< 
zum 
Oo 
z 


( XABSM_NOE XE 
(XABSM_NOREAD OR XABSM_ -NOURITE XABSM_NOEXE OR XABSM “NODEL) “ PRO_GRP OR 


(XABSM_NOREAD OR XABSM_NOWRITE OR XABSM_NOEXE OR XABSM_NODEL) * PRO_WLD; 
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MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep- 1384 91:04 +08 VAX-11 Bliss-32 V4.0-742 Page 9, 
v04-001 14- ~3ep 1 DISKSVMSMASTER: CMAIL.SRCIMAIL.632;2 (2) | 
4U0¢ a66 LONG(0), | . 
40 54 WORD (4) 'Process PID ; 
404 548 WORD (JP{$_ PID) | : 
405 549 LONG(MAILSL_MYPID), ; 
406 550 LON con bh 5 
407 551 LONG ( 5, | ; 
rts 226 TMPFILE_FAO_ wt = SPESCRIBTOR(' SYSSSCRATCH:MAIL_!XL.TMP')! Temporary file name : 
410 554 TMPF ILE1_FAO_ évest “: DESCRIPTOR(' SYSSSCRATCH: MAIL1 'XL. TMP") | 3 
411 555 : SBBLOCK sed for FOR/EDIT ; 
tig 556 TMPFILE_FAO DESC = = SDESCRIPTOR SYSSSCRATCH: MAIL XW: TMP’)! Temporary file name : 
41 557 CKC BYTE) 
414 558 TMPFILE1_FAO best” = DESCRIPTOR(' SYSSSCRATCH: MAIL1 'xW. TMP") 
415 559 : $BBLOCK sed for FOR/EDIT 
416 560 CALLABLE_EDT = UPLIT (ZASCIC *CALLABLE_ ") : VECTOR sBYTES. 
Pf 4 26] TOPIC_DESC = FILE DESC; ' Help topic descriptor 
419 368 GLOBAL BIND 
ro 208 MAILSQ_TMPFILE_DESC = TMPFILE_DESC; ! Make descriptor available 
422 566 LITERAL 
423 567 PRO_SYS = $BITPOSITION(XABSV_SYS), 
424 568 PRO_ = SBITPOSITION(XABSV_OWN), 
425 569 PRO_GRP = S$BITPOSITION(XABSV_GRP), 
2$8 3f0 PRO_WLD = $BITPOSITION(XABSV_ _WLD), | 
428 276 TMP_PRO = sxe f. file protection | 
429 57 XABSM_NOEXE OR 
430 574 
431 575 
432 576 
433 577 
434 578 
435 579 
580 
581 
be 
58 
584 
585 
586 
58 
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| 
| 
3 GLOBAL LITERAL 
tH MAILSC_TMP_PRO = TMP_PRO; 'Make available globally 
rut Declare static strings for qualifier names 
439 P SD( 
440 P "ATTACHMENT", | 
44) P ‘HEADER’ . 
44 P "EXTRACT®, | 
44 P 7 "FILE' 
444 P 0588 "FILEMF, | 
445 P 0589 "EDT". 
446 P 0590 ‘EDIT’, 
447 P 0591 "LNMSSYSTEM’, 
448 P 236 "LNMSF ILE DEV’, 
449 P 059 *MAILSINI 
450 P 0594 RAIL SSYSTER FLAGS’, 
451 P 0595 PROTOCOL 
45 P 0596 *REPLF', 
45 P 0597 *SELF*. 
454 P 0598 *SEND1 
455 P 0599 "SUBJECT, 
456 P 0600 *LAST', 
457 P 0601 *NEXT® 
458 P 0602 "TOLIST', 
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"USER', 
*TPU'); 


GLOBAL BIND 
MAILSSD_LNM_FILE_DEV = 
MAILSSD_ Nn “SYSTEM = SD SDANSSYSTE M; 
MAIL$SD “USER = SD_USER; 


Define local names for shared messages 
$SHR -MSGDEF (MAIL, 126,LOCAL, 
(OPEN 


IN, ERRO 
(PARSEFAIL, WARNING) , 
(OPENOUT, ‘. 
(READERR “BARNING) 
ITEERR, WARNING), 
(CLOSEIN WARNING) 
(CLOSEOUT ,WARNING)); 


LNM$FILE_DEV, 
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; 478 0621 1! 

: rt 8 § : TPARSE table to determine if a number is present as the command 

; 481 Oe 4 SINIT_STATE (DECNUM_STATE ,DECNUM_KEY); 

: 48 P 06 $ 1 $STATE ( 

> 684 0627 1 (fPAS_DECIMAL)); 

> 485 P 0628 1 $STATE 

: 486 P 0629 1 ('7* TPAS_E 

: 487 0630 1 rag _£0S7 +544 EXIT): 

: 488 0631 1! 

: re 8 ¢ : } TPARSE table to parse /EDIT qualifier values 

: 491 0634 1 SINIT_STATE(EDITQUAL_STATE,EDITQUAL_KEY); 

; 49 0635 1 | 

: 49 0636 1 SSTATE (, 

7 494 P 0637 1 (' SEND" ,TPAS EXIT, ,1°F SEND EDIT,CLI fol Tou AL), 

> 495 P 0638 1 ("REPLYS -TPAS E xIT; “F REPLY EDIT, CCI EDI TOUAL) 

; 496 0639 F (*FORWARD' aPKS Xixif., F_FORQ_EDIT,CLT_EDITQUALS); 

3 rh Beet : TPARSE table to parse a number, either octal, decimal, or hex 

: 500 0643 1 SINIT_STATE(GETNUM_STATE,GETNUM_KEY); 

; 501 P 0644 1 $STATE(, 

: 502 P 0645 1 "CTPAS DECIMAL, TPAS_EXIT,,, TPA_NUMBER), 

: 503 0646 1 ('£" GET OCTHEX));~ | 

: 504 P 0647 1 SSTATE(GET OCTHER, 

: 505 P 0648 1 ('O" ,GET_OCT 

: 506 0649 1 ('X" “GET “EXD; 

: 507 P 0650 1 SSTATE(GET OCT, 

; 508 0651 1 (TBA$_OCTAL, TPAS EXIT, ,,TPA_NUMBER) ); | 

: 509 P 0652 1 SSTATE(GET HEX, 

: 510 0653 1 (TPAS_HEX, TPAS_EXIT,.,TPA_NUMBER)); | 
| 
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; 318 06 é ' GLOBAL ROUTINE MAILSDISABLE_CTRLC : NOVALUE = 
; 514 Oe $ 1 ! FUNCTIONAL DESCRIPTION: 
; a1 4 8 i Disable CTRL/C | 
Ps Z sad.e ast | 
; 219 ea 1! 

; 518 0660 1 i-- 

; 519 0661 BEGIN 

: 320 0662 2 MAILSGL FLAGSEMAIF y CIRLCFLJ = 0; | 
: 5e1 066 IF .MAICSW_TTCHAN REG 0 

SS ¢ 0664 THEN SCANCEL (CHAN=.MAILS$W_TTCHAN) ; 
s 5 0665 : 

; 526 0666 ; 


RETURN; 
EN: | 


-TITLE MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 
IDENT \vV04-001\ 


.PSECT $CODE$,NOWRT,2 
00 00 00 40 00000 P.AAA: .ASCII \a@\<0><0><0> ; 
2C 00004 P.AAC: .ASCII \,\ : 
00005 -BLKB 3 
00000001 00008 P.AAB: <LONG 17 ; 
00000000" 0000¢ “ADDRESS P.AAC : 
2F 00010 P.AAE: <ASCII \/\ ; 
00011 -BLKB 3 | 
00000001 00014 P.AAD: <LONG 17 F 
00000000" 00018 “ADDRESS P.AAE : 
54 55 50 4E 49 24 53 59 53 OOOIC P.AAG: ASCII \SYSSINPUT\ : 
00025 “BLKB 3 
00000009 00028 P.AAF: <LONG 9 : 
00000000" 0002¢ .ADDRESS P.AAG : 
0004 00 O P.AAH: .WORD 4 ; 
0305 00032 “WORD 773 : 
00000000" 00034 ;ADDRESS PROCSTS : 
00000000 00038 “LONG 0 : 
020 0003¢ “WORD 32 : 
02 : 0003E “WORD 514 : 
00000000" 00040 -ADDRESS USERNAME : 
00000000" 00044 “ADDRESS MAIL$Q_USERNAME ; 
0008 00048 “WORD : 
0 000° pode "ADBRESS noise PROCPRIV ; | 
$6090000 00086 Aone 5 ee 
9004 0054 ; ; 
6 19 00056 “WORD 793 ; 
00000000' 00058 “ADDRESS MAILSL_MYPID ; | 
00000000 d05¢ LONG : | 
00 90009 6 “LONG : 
49 41 4D 3A 48 43 54 41 52 43 53 24 53 P.AAJ: ASCII \SYS$SCRATCH:MAIL_!XL.TMP\ : | 
50 4D 54 2€ 4¢ 58 21 5SF &¢ 00073 ; 
990001 907 P.AAL: .LONG 24 ; 
0 90 00° -ADDRESS P.AAJ : | 
49 41 4D 3A 48 43 54 41 52 43 53 34 53 5 00 P.AAL: ASCII \SYS$SCRATCH:MAIL1_!XL.TMP\ : | 
50 4p 54 2€ 4C 58 21 SF 31 4C 90093 ; 
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14 

1}. Sep-1984 701: 

14- ~307 138% 93:03:98 
108 P.ABQ: .ASCII \REPLF 
1c -BLKB 
100 P.ABP: .LONG 
104 ADDRESS P.ABQ 
108 P ASCII \SELF\ 
106 P ABE LONG 4 
1E ADDRESS P.ABS 
1€4 P.ABU: .ASCII \SEND1 

O1E9 LKB H 
bles P.ABT: .LONG 
git ADDRESS P.ABU 
1F4 P.ABW: .ASCII \SUBJE 
01FB -BLKB 1 
oink P.ABV: .LONG 7 
00 ADDRESS P.ABW 
0204 P.ABY: .ASCII \LAST\ 
0208 P.ABX: .LONG 4 
88 of ADDRESS P.ABY 
0210 P.ACA: “ASCII \NEXT\ 
00214 P.ABZ: .LONG ‘, 
00218 ADDRESS P.ACA 
00 if P.ACC: .ASCII \TOLIS 
00 -BLKB 2 
00224 P.ACB: “TONG 6 
8 8 ADDRESS P.ACC 
O22C P.ACE: .ASCII \USER\ 
00230 P.ACD: .LONG 4 
00234 ADDRESS P.ACE 
00238 P.ACG: .ASCIi \TPU\ 
00238 -BLKB 1 
0023C P.ACF: .LONG 3 
00240 ADDRESS P.ACG 
-PSECT _LIBSK 
00000 ; TPASKEYSTO 
0.8: -BLK 0 
00000 ; TPASKEYST 
.10: eASCII \SEND\ 
00004 -—BYTE 1 
00005 gibasKeyso 0 
00005 ; TPASKEYST 
U.17: ‘ asel! \REPLY 
QOO0A YTE 1 
00008 S TPASKEYETO 
U.22: BLK 0 
00008 UF ASKEYET 
24: ASCII \FORWA 
ote BYTE -=1 
it ; TRASKEYFILL 
U.29: BYTE -1 
-PSECT _LIBS$S 
00000 DECNUM_STATE:: 
-BLKB 0 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: CMA 


\ 


T\ 


EY1$,NOWRT, 


SHR, 


\ 


RD\ 


TATES,NOWRT, SHR, 


4.0-742 
MAIL. SRCIMAIL.B32; 2? 


PIC,1 
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O5F3 
102F 
FFFF 
15F7 
FFFF 


7100 
00000000* 
00000001 

FFFF 

7101 
00000000* 
00000002 

FFFF 

7502 
00000000* 
00000004 

FFFF 


51F3 
00000000* 
FFFF 
1425 
0000+ 


104F 
0000+ 
1458 


00000 Nh oyphade™ 
00002 —-s. 
00004  TPASTARGET 
0.4: W 

00006 ;TPASTYPE 
0.5: WORD 

00008 :TBASTARGET 
6: WORD 
QOO0A 


ORD 


0000C 
0000E 
00012 
00016 ; 
00018 
QOO1A 
QOOO1E 
00022 
00024 
00026 
0002A 
0002E 
00030 
00030 o 
00032 ; TPASADDR ~ 
00036 Y TPASTARGET 
0.33:  .WORD 
00038 s TPASTYPE 
-34:  _ .WORD 
Q003A ;TBASTARGET 
0003C ; “ee ‘octigx 
0003¢ = iPASTYPE 
U.3?7: 
OOO3E ; = iBASTARGET 


w 
00040 ; TPASTYPE 
U.40: WORD 


; TPASTYPE 


i 


Qeoe-r Cee Cee 


4 
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1523 
4143 
-1 
5623 
@1 


BLKB_ 2 
QO00C EDITQUAL ap iATEr: 


28928 
<<CLI_EDITQUAL-U.12>-4> 
1 

-1 

28929 
<<CLI_EDITQUAL-U.19>=-4> 
2 

-1 

29954 
<<CLI_EDITQUAL-U.26>-4> 
4 

-1 

0 

20979 
<<TPA_NUMBER=U.32>=4> 
-1 

5157 

<<U.35-U. 36>=2> 

0 

4175 

<<U.38-U.39>-2> 

5208 
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0000+ 


55F4 
00000000* 
FFFF 


55F5 
00000000* 
FFFF 


0000+ 
0000+ 
0000+ 
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16-Sep-1984 01:0 VAX=-11 Bliss-32 V4.0-742 
14- 3op7138e 12:4 2:98 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32; 2? 
00042 ; TPASTARGET 
U.42: ated <<U.41°U.42>-2> 
00044 ; sat 0c 
U.358: " LKB 0 
00044 ; TPASTYPE 
U.43: .WORD 22004 
00046 TPASADDR 
U.44: _.LONG <<TPA_NUMBER-U.44>-4> 
0004A ; TPASTARGET 
U.45:  .WORD <1 
0004C vGET. HEX 
U.41;  .BLKB 0 
0004C vTPASTYPE 
U.46: .WORD 22005 
0004E v TPASADDR 
U.47: LONG <<TPA_NUMBER-U.47>=-4> 
00052 T TPASTARGET 


0.48: .WORD -1 

-PSECT _LIBSKEYOS,NOWRT, SHR, 
00000 DECNUM_KEY: : 
00000 ; TPASKEYO 
00000 EDI TQUAL “REY. 
00000 ; TPASKEYO 
00000 on 
00002 U8 acey™ 


U.16: 
00004 ; TPASKEY 
0.23:  .WORD 6-42-07 


00006 *BLKB 

00008 GETNUM_KEY:: 

00008 ; TPASKEYO 
U.30: J 


ooo Oo 


WORD <U.8-U.7> 
» WORD <U.15-U.7> 


0 

BLKB 0 
.PSECT $OWNS,NOEXE,2 

00000 EDITNAM_BUF : 
00040 CTRL_MASK: 
00044 TPA_NUMBER: 
00048 ENHANCED: PRIVS: 
00050 TMP_ESNAM BUF : 


14F “BLK 
80120 CLIFLAGS: 
00154 PROCSTS:.BLKB 
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00158 CLI aon 
0015C CLI_EXTRACT: 
a 


4 
1 
00150 -BLKB 3 
00160 CLI_SIGNALLED: ‘ 


| 
| 
| 
00164 USERNAME: 
-BLKB 32 
00184 SYSNODEBUF : 
-BLKB 64 
01C4 TMP_NAM:.BLKB 96 
0 24 TMP_FAB:.BLKB 80 
0274 TMP_XAB: BLK 88 
OO02CC EXIT_STAT ‘ 
0 
| 
| 


TBE 
00000000 002D0 EXIT_BLOCK: 
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- LONG : 

00000000V 90204 -ADDRESS_EXIT_ROUTINE ; 

00000001 00208 -LONG 1 : 

00000000" 9920¢ “ADDRESS EXIT_STATUS ; 
002E0 TMP_ESNAM DESC: ee 

00000000" 99284 :ADDRESS TMP_ESNAM_BUF : 


002E8 FILE_DESC: 


LKB 8 
00O# 002FO TMPFILE DESC: 
BYTE OC2] ; 
02 OE 002F2 -BYTE 14, 2 : 
O2F4 ~BLKB 4 
0O# 002F8 TMPFILE1 “peat! 
sBYTE 02) : 
02 OF OO2FA -BYTE 14, 2 : 
Beene -BLKB 4 
00# 00300 COMMAND_DESC: 
BYTE OC2] ; 
02 OE 00302 BYTE 14, 2 ; 
00304 BLKB 4 
00# 00308 DYN_DESC 
BYTE OC2] : 
02 O& 0Q030A on 14, 2 : 
0030¢ 4 
00# 00310 DYN_DESC +8 0023 
02 OE 00312 “BYTE 14, 2 : 
Beale -BLKB 4 
00# 00318 INPUT_DESC: 
-BYTE OC2] ; 
02 O€& OQO31A -BYTE 14, 2 : 
0031C -~BLKB 4 


«PSECT $GLOBAL$,NOEXE,2 
00000 MAILSGL_FLAGS: 
00004 MAILSL_SMG DISPLAY:: 

-BCKB 4 


M14 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1986 01:01: 
v04=001 12-8087 1382 93:25:98 


00008 MAILSL_SMG KEYBOARD 
0000¢ NAILSL_SHG KEYTABLE : 
0000007F 00010 NALLSGL_B1GBUFSIZ: 5 
00014 MAILSGL -BIGBUFFER® 
00018 MAILSGL -SYSPLAGS:: 
00000003 0001C MAILSL_SiZLIM:: 
00020 MAILSL “nities : 
00024 MAILSL -WiPID: rs 
00# 00028 MAIL$Q _ATTDESC:: 
02 OE 0002A BYE 
00o# 00 $5 MAIL$Q_ aitebes: 
-BYTE 
02 OE 00032 “BYTE 
00# $0088 MAIL$Q_ sitheenen’ 
10 00038 BYTE 
$0085 ae. 
00048 MAIL$Q_INPTRAN: : 
00050 NAILSL_INBCLASS: 
00054 MAILSL_INPDEVDP: 
00058 MAILSL -OUTCLASS: 
0005C MAILSL OU TDEVDP: 
00060 MAILSL_OUTLINES: 
00000040 00064 MAIL$Q “eS TTKAM DESC: 


«LON 
00000000" 00068 sADDRESS EDI TNAM_BUF : 
Q0006C MAIL$B DFE: 


VAX-11 Bliss-32 V4.0-742 Page 1 
Disk SVMSMASTER: CMAIL.SRCIMAIL. B32;2 (4) | 


fe Denmseoer 
™m 


oo oOo 
~m 
. 


Petrone pee: iguco pveics ponte co fm: =~ “RO: —y ° a we ee 


1 
9006 -BLKB 1 
QOE MAILSU =TTCHAN: | 
00070 MAIL$Q USERNAME i 
00# 00078 MAILS$G_CNCT:: 

-BYTE C128) : | 
02 02 000F8 -BYTE : | 
QOFA -BLKB = 584 | 
0342 -BLKB 2 | 


14-Sep-1984 
00344 MAILSQ_SYSNODE:: 


2: 


-BLKB ‘a 
0O# 0034C MAIL$Q_ SYSNODE2: : 
-BYTE (2) 
02 OE 0085 BYTE |S. 2 
00# 00354 MAIL$Q ACALEDTNAR: 
02 OF 00356 ¥ 14, 2 
BO 328 -BLKB 4 
0O# 0035C nAIL$0_PAOTOCOL: bro) 
02 OE 0035E -BYT 14, 2 
00 360 -—BLKB 4 
0O# 00364 MALLSG_AAILDEF «+ 0¢23 
02 OF 00366 -BYT 14, 2 
00368 -—BLKB 4 
00# 0036C MAILS$Q_USERDEF:: 
-BYTE  0(2) 
02 OF 0036E -BYTE 14, 2 
00370 -BLKB 4 
MAIL$Q_TO== AIL$G_CNCT+16 
MAIL$Q_SUBJ== MAIL$G_CNCT+24 
MAIL$Q_FULLUSER== MAIL$G_CNCT+8 
MAIL$T_TMP_RAB== MAIL$G_CNCT+646 
TMP_BUFF= MAIL$G_CNCT+134 
TMP” RAB= MAILSG_ CNCT+646 
MAIC$Q_ENHANCED_PRIVS== 
ENHANCED _PRIVS 
NULL_CHAR= P.AAA 
COMMA_DESC= P.AAB 
SLASH_DESC= P.AAD 
SYSIN-DESC= P.AAF 
GETPROCSTS= ~AAH 
TMPFILE FAO_CDESC= P.AAI 
TMPFILET_FAO_CDESC= P.AAK 
TMPFILE FAO BESC= P.A 
TMPFILET_FAO_DESC= BAO 
CALLABLE-EDT= 
C_D Fite * DESC 


TOPIC DESC= 
MAIL$G_TMPFILE_DESC== 
TMPF LE_DESC 


MAILSC_TMP_PRO== 655 
3p. ATTACHAENTs P 


— | 


MAILSMAIL VAX/VMS PERSONAL MA T - - - - 
vOu=001 shane opt. ane ste 1ESeoRBs QN:00:08 YAEL BLISS YO aan gsa:0 


<= 
= 


Be Se Ge Ge Fe Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Ge Ge Se Ge Ge Se Ge Se Se Se Ge Se Ge Ge Ge Se Se Se Ge Se See Fe Se Se Ge Se See Sete Se eeae 


= 
m 


15 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1b-se -1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 20. 
v04-001 1228 8=13Re 93: 242: :98 DISKSVMSMASTER:CMAIL.SRCIMAIL.832;2 ° (4) | 
| 
$D_PROTOCOL= P. ABN 
SD-REPLF= P. ABP 
SD-SELF= P.ABR 
SO-SEND1= P.ABT 
S0- SUBJECT= P.ASV 
SD"LAST= P.ABX 
SO-NEXT= P.ABZ | 
SO-TOLIST= P.ACB 
SD-USER= P.ACD 
SD~ TPU= P.ACF | 
MATLSSD_LNM_F ILE_DEV== 
P. ABH 
MAILS$SD_LNM_SYSTEM==P.ABF 
MAIL$SD_USER== P.ACD 
-EXTRN SMG$_EOF, CLIS$_NEGATED 
-EXTRN CLIS"LOCNEG, CLISGET_VALUE 
~-EXTRN CLISBCL_PARSE, CLISDISPATCH 
-EXTRN CLISPRESENT, LIBSCVT_DTB | 
-EXTRN LIBSDISABLE_CTRL | 
~EXTRN LIBSENABLE_CTRL 
-EXTRN LIBSGET_VM; LIBSSET FILE_PROT 
-EXTRN LIBSTPARSE, MAILSCMB_READ 
EXTRN MAILSCMD_ ONTINUE 
EXTRN MAILSDEL-TMPF, MAILSDELEMPL INK 
TEXTRN MAILSEXTRACT MESSAGE 
XTRN MAILSFILTER_OUTPUT 
~EXTRN MAILS$FAO_GETMSG 
~EXTRN MAILSGETASG. MAILSGET _DEVDIR 
-EXTRN MAILSHANDLE, MAILSADD_ADDR 
“EXTRN MAILSCLOSE FILE 
~EXTRN MAILSCONF IRM, MAILSDELETEL INK 
-EXTRN MAILSEDIT, MAILSENTER 
“EXTRN MAILSGET TiNpUT. MAILSGET 1_MSG 
-EXTRN MAILSGET_MSG, MAILSGET_NEWMAIL 
TEXTRN MAILSGET~USE ER MAILSINI_ADDR 
-EXTRN MAILSINFO_I_MSG 
-EXTRN MAILSINFO-MSG, MAIL$IOSUB_INIT 
-EXTRN MAILSNET_END_USERS 
EXTRN MAILSOPER_IF> MAILSOPEN_UAF 
SEXTRN MAILSOPEN SYSMAI 
~EXTRN MAILSPUT 
.EXTRN MA AILSREAD, YOREIGN. FILE 
-EXTRN MAILSREWIND_I_MSG” 
-EXTRN MAILSREWIND ASG 
~EXTRN MAILSSEND -AbDR. MAILSSET_NAME 
~EXTRN MAILSTEST. gee Aer ert ee 1_MSG 
“EXTRN MAIL SUP mAILSuP 
SEXTRN SMG auEKtE eat 


-EXTRN SMGSERASE_PAS TE BOA aD 

-EXTRN SMGSCREATE_ VIRTUAL KEYBOARD 
“EXTRN SMGSCREATE KEY 

“EXTRN SMGSDELETE =VIRTUAL KEYBOARD 
-EXTRN SMGSDEF INE_K STRSAPPEND 
SEXTRN 5ST RSCON CAT; Erase 

-EXTRN STRS FREE! bx, STR aerate 
-EXTRN SYSSFA OTHE See tr TC ENAME 
*EXTRN OTILSREPORT_ 10_ERROR 


ou 
COW 


-——- 


MAILSMAIL 
v04-001 


3; Routine Size: 


28 bytes, 


VAX/VMS PERSONAL MAIL UTILITY 


00000000" 00 
50 00000000' 


000000006 00 


Routine Base: 


1 
1 


0000 00000 
01 8A 00002 
00 7 00009 
09 13 00010 
50 DD 00012 
01 FB 00014 

04 00018 


SCODES + 0244 


4 


-EXTRN 
-PSECT 


4 01:01: VAX-11 Bliss-32 V4.0-742 
93:03:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 


MAILS$T_RD_RAB, MAIL$SQ_MAIL_ MAI 
MAILSB_MSGTRAN, MAILSTOMMAND TABLE 
MAILSL_CURMSG, MAILSL_USRSYSBUF 
MAILSL_MSG_NUM, MAILSC_MSG_RADR 
MAILSW-MSG-RSIZ 

MAILSL_MSG_STS, MAIL$Q_MSGNAME 
MAILSQ-MSGTYPE, MAILST_UAF_BUFF 
SYSSCARCEL 


SCODES,NOWRT,2 
MAILSDISABLE CTRLC Save nothing 


MAILSGL_FLAGS 
MAILSW_TTCHAN, RO 


RO 
#1, SYSSCANCEL 


Page 21) 


(4) 


54 


45 


49 


46 


+9 ta oh ha VAX/VMS PERSONAL MAIL UTILITY VAX=11 Bliss=32_ V4.0-742 Page 3 


15 
Sep-1984 01:01: 
730571 $8e 20:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 


01 
; $ 0667 1 ROUTINE CTRLCAST : NOVALUE = 
3 Beek BEGIN 
3 8 066 '++ 
3 2 2 Bory FUNCTIONAL DESCRIPTION: 
3 2 1 bo7¢ Handles the CTRL/C ast, re-enables for next one 
; Ss ¢ bese MAILSENABLE CTRLC() 
: 534 675 wf hae “FLAGSUMAIF _¥ CTRLCFLJ = 
s 5355 Bore RETURN 
; 336 067 END; 
0000 00000 CTRLCAST: 
WORD Save not 3; 0667 
00000000v 00 00 FB 00002 CALLS #0, MATESEN LE_CTRLC 3: 0674 
00000000' 00 01 88 00009 BISB2 #1, MAILSGL_FLAGS+1 3; 0675 
04 00010 RET ; 0677 


; Routine Size: 17 bytes, Routine Base: S$CODE$ + 0260 


MAILSMAIL 


31 


; Routine Size: 80 bytes, 


v04-001 

: 8 67 
; 9 ore 
; 540 680 
; re : 1 
3 36 bees 
3; 5446 684 leo 
; 4545 0685 
; 546 0686 
: ee! 0687 
: 548 0688 
3 208 689 
; 550 690 
; 551 691 
3 226 e 0096 
; 35 P 069 
; 554 P 0694 
s 399 P 0695 
; 556 P 0696 
g So? 0697 
: 558 0698 
; 559 0699 
: 560 0700 
: 561 0701 
3 206 070 
; 3 070 


VAX/VMS PERSONAL MAIL UTILITY 


~~ ROUTINE MAILSENABLE_CTRLC = 
FUNCTIONAL DESCRIPTION: 


Enables control=-c's on MAILSW_TTCHAN 


CAL 
10SB :VECTOR(C4,WORD); 


CTRL 


MAICS$GL OPLAGSEMATE..V 


EN BEG 
IF -ERR(SQ10W(CHAN= MA 
UNC=10$_S 
Toso: 1988 
Pi= =CTRLCAST, 


C = 0; 
~ITERMI 
MAI TT 
D 


FLJ 
TER 
L$W_TTCHA 

ETMODE ORY {0sm_ CTRLCAST, 


P2= 

SIGNAL (. Status»): 

IF NOT .10SBC0) 
THEN SIGNAL(.10SB[0)); 


1 

1 

1 

1 

1 

1 

1 
BEGIN 
LO 
pet FLAGSCMAIF V 
T 

: 

r4 

1 


RETURN TRUE 
END; 


53 

52 

5E 

01 Ae 
62 

7E 

7E 
000000006 00 
05 

63 

06 


Routine Base: 


000C 00000 
00000G 00 9€ 00002 
a 
01 8A 00015 
02 4 00017 
7E ?C 00018 
7E 7C 00010 
7E D4 Bes, 
oH Fis! 
39 AE 9F 00026 
012 8F 3C 4 9 
6— A2 3C 5 
fm 

i EB 0038 
es 

6€ is 04 1$: 
6E 5C 00046 
01 FR 0049 

01 4 Bee 28: 
4 0004F 


SCODES + 0271 


SYS$Q10W 

ag hyn -CIRLC, Save R2,R3 

LIBSSIGNA 

a. SP FLAGS, R2 
MAILSGL_FLAGS+1 

te MAILSGL_FLAGS, 2$ 

=(8p) 


= (SP) 
CTRLCAST 
=(SP) 


#291, =(SP) 
MAIL$W_TTCHAN, 
#12, SYS$Q10W 
STATUS, 1$ 
TAT 
LIBSSIGNAL 


10SB, -(SP) 
"i, L1BSS1GNAL 


~(SP) 


~ 
on 
~w 


8838388 


Cage ve renown, mut eristy HCRES BEL 0:00:96 ht Bifama.osaze Ho 


MAILSMAIL 
04001 


; Routine Size: 


Oo 
ww 


SsSses 


Wn 


VAX/VMS PERSONAL MAIL UTILITY 18-Sep-19 4 91:03:98 x" 


AIL.SRC 


iL. age 63 


P 
14-Sep-1984 JMAIL.B32;2 
GLOBAL ROUTINE MAILSDISABLE_CTRLY : NOVALUE = 

; FUNCTIONAL DESCRIPTION: 


Disable CLI control/y handling 


1 
1 
1 
1 
1 
1 
1 leo 
BEGIN 
IF ERR(LIBSDISABLE _CTRL(ZREF (%2X'02000000") ,CTRL_MASK);, 
SIGNAL (.ST 


CTRL( 
AL(.STATUS)); 


SSN 


RETURN; 
END; 


seat = 008 -ENTRY MAILSDISABLE_CTRLY, Save nothing ; 0704 
5E 4 ¢ 00 SUBL2 #4, SP : 

99000000" 0 9F 0000 PUSHAB CTRL MASK + 0714 
04 AE 02000000 8F 00 9008 OVL  #33554432, 4(SP) : 
04 AE 9F 0001 PUSHAB : 

000000006 00 9 FB 00016 CALLS #2, LIBSDISABLE_CTRL ; | 
09 E8 0001D BLBS STATUS, 1$ ; 

50 DD 90020 PUSHL STATUS : 

000000006 00 01 FB 00022 CALLS #1, LIBSSIGNAL ; | 

04 00029 1$: RET + 0716 


42 bytes, Routine Base: S$CODE$ + 02C1 


> 
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V04 1e=$ep-1986 12:42:50 DISKSVMGMASTER-CMAIL SRCIMAIL.032:2 29° (BS vo 


~~ ROUTINE MAILSENABLE_CTRLY : NOVALUE = 
; FUNCTIONAL DESCRIPTION: 
i Enable CLI control/y handling 


1 
1 
1 
1 
1 
1} 
1 len 
BEGIN 
IF aes Ce YH: 
_ SIGNA 


L (CTRL MASK); 
CSTATUS)) ; 


SSSSEFSFETESS S 


SNS SN 


NoNOPMOROPOROrorofno«ns— 


CONOUVNLS Ww -O0O~ 


ww 


RETURN 
END; 


0000 00000 -ENTRY ny! leg 10 a _CTRLY, Save nothing ; 0717 
00000000" 00 9F 00002 PUSHAB CTRL ; 0727 
000000006 00 01 FB 00008 CALLS #1, "CLBSENABLE CTRL : 
09 50 €8 0000F BLBS STATUS, 1$ ; 
50 DD 00012 PUSHL STATUS 3 
000000006 00 01 FB 00014 CALLS #1, LIBSSIGNAL ‘ 
04 0001B 1$: RET ; 0729 


; Routine Size: 28 bytes, Routine Base: $CODE$ + 02EB 


MAILSMAIL 
vO4=001 


610 


Se Ge Oe Se Se Oe Se Oe Se Ge Be Ge Oe Oe Se Se Ge Se Se Se Ss Oe Ge HSH SH Se SH Ss Se Seas 
o 
oO 
oo 


SUN $C OODNOUS WN 


AAAAAAAAOOOAAAAO 
MORONOPORY — 


24 


; Routine Size: 


15 | 
VAX/VMS PERSONAL MAIL UTILITY 5ep-1984 01:01: VAX=11 Bliss-32_V4.0-742 ° 7 
5501 8Be Fh 2388 | Me ehh eteR MR ion ete amare es2:2 2% «35 


730 1 ROUTINE call_tparse(string,states,keys) = 
1 2 BEGIN _ . . | 
7 ¢ 
7 ! 
q : This routine calls tparse given the string, states and keys 
i . 
f § Inputs: 
0738 ; string address of string descriptor for string to parse 
8 9 ; states address of tparse states table 
740 keys address of tparse keys table 
Ore 
074 MAP 
0744 string : REF S$BBLOCK; 
0745 
0746 LOCAL 
0747 tpablock : Sbblock(tpa$k_length0J, 
0748 status; 
0749 
0750 2! 
153 Initialize the tparse block 
o78$ CHSFILL(O, tpa$k.Length0, tpablock); 
0754 tpablock(tpa$l_count] = tpa$k_count0; 
0755 tpablock(tpa$l_options] = tpaSm_abbrev: 
0756 tpablock(tpa$l_stringcnt] = Str ne ceceu..Longthls 
fat § tpablock(tpa$l“stringptr] = .stringldsc$a_pointerd; 
354 § RETURN Lib$tparse(tpablock,.states,.keys) 
0761 1 END; 


003C 00000 CALL_TPARSE: 
WORD 


Save R2,R3,R4,R5 : 0730 
5E 24 ¢2 00002 SUBL2 #36, SP ; 
00 6E 00 2 90005 MOVCS #0, (SP), #0, #36, TPABLOCK : 0753 
6E 08 dO 00008 MOVL #8, TPABLOCK : 0754 
04 Ar 02 09 99008 MOVL #2. TPABLOCK+4 : 0755 
5 06 AC p 1 MOVL STRING, R : 0756 
08 AE 60 3C¢ 90016 MOVZWL (RO), TPABLOCK+8 ; | 
OC AE 04 AO 00 OO1A MOVL 4 (ROS, TPABLOCK+12 : 0757 
7E 08 AC 7D OOO1F MOVO STATES, -(SP) : 0759 
08 AE 9F 00023 PUSHAB TPABLOCK : 
000000006 00 03 FB 00026 CALLS #3, LIBSTPARSE ; 
04 0002D RET > 0761 


46 bytes, Routine Base: $CODE$ + 0307 


J 15 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX=11 Bliss-32 V4.0-742 Page 28 
v04-001 Wraeea the F3i25:98 Peta tea MAI eR eamatesze2 ee cate | 
: 6 $ 768 1 ROUTINE PARSE_EDIT_QUAL (CLIDEFAULT) = ; 
3; 6 76 BEGIN 3 
; 628 764 lee ; 
; 6 4 169 i FUNCTIONAL DESCRIPTION: | ; 
: 631 O76 : This routine parses the /EDIT qualifier on SEND and REPLY | : 
: ° ¢ 708 commands, taking into account the DCL MAIL/EDIT qualifier. : 
: 63 0770 t INPUTS: | : 
i $36 0772 @ | CLIDEFAULT is the state of /EDIT from the DCL MAIL/EDIT command | 
: o38 O74 LOCAL | : 
: 639 775 EDIT_STATUS; : 
; 640 0776 ' 3 
3; 641 077 ' Set the edit thee if either MAIL/EDIT, or /EDIT on this command. Then, ; 
: ong ore if user explicitly said /NOEDIT, clear the flag : 
> 644 0780 2 EDIT_STATUS = CLISPRESENT(SD EDIT); : 
3 645 0781 2 CLIFCAGSCEDIT FLAG) = .CLIDEFAULT OR .EDIT_STATUS; ; 
> 646 O78¢ IF .EDIT_STATOS EQL CLI$_NEGAT ; 
: 647 078 OR .EDIT STATUS EQL CLI$_LOCNEG : 
3 648 0784 THEN CLIFLAGSCEDIT_FLAG] = 0; : 
: 650 0786 2 IF NOT .MAILSGL_FLAGSCMAIF_V_ITERM] ; 
3 631 0787 THEN (EDIT_STATUS = 0;~CCIFLAGSCEDIT_FLAG = 0); : 
: 65 0789 2 RETURN .EDIT_STATUS : 
: 654 0790 1 END; : 
0004 00000 PARSE_EDIT_QUAL: y 
.WORD Save R2 : 0762 
52 00000000" 00 9€ 00002 MOVAB CLIFLAGS, R2 ; 
FE16 CF 9F 00009 PUSHAB SD_EDIT : 0780 
000000006 00 gi cB 000D CALLS #17 CLISPRESENT F 
51 04 AC 0 89 00014 BISB3 EDIT STATUS, CLIDEFAULT, R1 : 0781 
62 01 00 51 FO 00019 INSV R1, BO, #1, CLIFLAG ; 
000000006 8F 30 D4 OO1E CPL EDiT_sfarus, #CLIS_NEGATED ; 0782 
000000006 8F 50 p 00 7 cMPL EDIT_STATUS, #CLIS_LOCNEG 0783 
62 01 8A 000 p 1$: BICB2 #1, CLIFLAGS : 0784 | 
05 00000000' 00 98 EO 99 2$: BBS #2, MAILSGL_FLAGS, 3$ : 0786 
4 00038 CLRL. EDIT_STATUS : 0787 
62 01 8A 0003D BICB2 #1, CLIFLAGS 3 
4 00040 3$: RET : 0790 


; Routine Size: 65 bytes, Routine Base: $CODE$ + 0335 
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.0-742 
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; 656 0791 1 GLOBAL ROUTINE MAILSCMD_SET_EXIT = (CLIFLAGSCEXIT_FLAG] = 1;RETURN 1); 
0000 00000 ENTRY MAILSCMD_SET_EXIT, Save nothing 
00000000" 00 8 88 00002 BISB2 #8, CLIFCAGS 
50 1 Bo aie MOVL #1, RO 


; Routine Size: 13 bytes, Routine Base: S$CODES + 0376 


; 657 0792 1 GLOBAL ROUTINE MAILSCMD_SET_QUIT = (CLIFLAGSCQUIT_FLAG] = 1;RETURN 1); 
0000 00000 -ENTRY ig Ae SET QUIT, Save nothing 
00000000" 00 10 88 00002 BISB2 CLIFLAGS 
50 01 00 00009 MOVL ne “RO 
04 0000C RET 


; Routine Size: 13 bytes, Routine Base: S$CODE$S + 0383 


: 658 0793 1 GLOBAL ROUTINE MAILSCMD_NULL = RETURN 1; 
0000 00000 -ENTRY MAILSCMD_NULL, Save nothing 
50 01 dO 0000 MOVL #1, RO 
04 0000 RET 


; Routine Size: 6 bytes, Routine Base: S$CODE$ + 0390 


0791 


3; 0792 


; 0793 


MAILSMAIL 
v04-001 


; Routine Size: 


VAX/VMS PERSONAL MAIL UTILITY 


19 bytes, 


SE 
000000006 00 


Routine Base: 


08 
00000000" Be 


SCODES + 0396 


079% GLOBAL ROUTINE MAILSCMD_ERASE = 
0796 1 § FUNCTIONAL DESCRIPTION: 

0797 1: 

0798 1! Erase the screen. 
0799 1 ie. 

0800 2 BEGIN 

0801 2 LOCAL 

080¢ DESC : VECTORC2,LONG); 
0804 ‘DESC 0} = 0; 

0805 ipescti DESCtO}; 

806 iMAILSPUT OUTPUT (DESC): 

0807 : RETURN SHOSERASE. PAST  TEBOARD (MAILSL.SMG_DISPLAY) ; 


Bliss-32 V4 
SMA 


RAsLScne ERASE, Save nothing 


mALLSL SMG_DISPLAY 
, SMGSERASE_PASTEBOARD 


-0-742 
STER: CMAIL.SRCIMAIL.B32; 2? 


aa 


30 
(12) 


0794 
0807 
0808 
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P.ACJ 
\DEF/K 


1 
P.ACL 
\DEF /K 


\DEF/K 


1 


[LONG 31 
“ADDRESS P.ACP 


-ASCII 
-BLKB 


- LONG 
-ADDRESS 


-ASCII 


\DEF /K 


3 
21 
P.ACR 
\DEF /K 


[LONG 22 
“ADDRESS P.ACT 


-ASCII 


\DEF/K 


-LONG 24 
ADDRESS P.ACV 


ASCII 


\DEF /K 


LONG 24 
«ADDRESS P.ACX 


ASCII 


-BLKB 
LONG 


-LON 
-ADDRESS 


-ASCII 


. B 
- LONG 


\DEF /K 


52 


P.A 
DEF 


CZ 
\DEF /K 


21 
P.ADB 
\DEF/K 


52 


ww 


32 V4. 


“HELP''/TERM\ 


“EXTRACT/MAIL’'/ TERMS 


“ERASE'’ /TERM /NOECHO\ 


"“SEND''/TERM\ 


“REPLY''/TERM\ 


“"FORWARD''/TERM\ 


“CURRENT''/TERM\ 


“FIRST''/TERM\ 


“LAST''/TERM\ 


“DIR''/TERM\ 


“PRINT''/TERM\ 


0-742 
R: CMAIL.SRCIMAIL.B32;2 


16 
+9 beh VAX/VMS PERSONAL MAIL UTILITY 1$-Sep-19 4 9} 01:98 ‘* Bl issese V4.0-742 


X-11 
SKSVMSMASTE 


v04-00 14-Sep-1984 12:42 D :CMAIL.SRCIMAIL.832;2 
00000000' 0054 .ADDRESS P.ADF 
4B 43 41 42 22 20 31 50 4B 20 48 2F 46 99 44 0890 P.ADH: . ASCII \DEF/K KP1 "'BACK''/TERM\ 
4D S2 465 54 2F 22 F 
0565 .BLKB 
SOON. SREB FADS: LOR 20 ay 
54 58 45 4E 22 20 30 50 4B 20 4B 2F 46 rk 44 6896 P.ADJ: ASCII \DEF/K KPO "'NEXT''/TERM\ 
4D S52 45 54 2F 22 Oz 
00000015 Mieke P.ADI: .LONG 21 
4D 4B 2F Nae agg + 8 iftta P.ADL Age la DEF TR MINUS "'READ/NEW''/TERM\ 
22 9 78 SE 2F 44 41 Niet 
00548 .BLKB 1 
00000018 O05AC P.ADK: [LONG 27 
00090000" 00580 “ADDRESS P.ADL 
43 20 4B 2F 46 45 44 005B4 P.ADN: “ASCII \DEF/K COMMA "DIR/NEW''/TERM\ 
2F 22 57 45 4E 2F 52 O05¢3 
0000001A 00500 P.ADM: LONG 26 
00000000" 005D4 -ADDRESS P.ADN 
50 20 468 2F 46 45 44 005D8 P.ADP: ‘ASCII \DEF/K PERIOD ‘FILE ‘’/NOTERM\ 
SE 2F 22 20 45 4C 49 005E7 
005F3 .BLKB 1 
00000018 005F4 P.ADO: <LONG 27 
00000000" 0058 “ADDRESS P.ADP 
50 20 4B 2F 46 45 44 OOS5FC P.ADR: ASCII \DEF/K PF2 "DIR/FOLDER''/TERM/IF=GOLD\ 
22 52 45 44 4C 4F 46 00608 
44 4C 4F 47 3D OO6IA 
0061F .BLKB 1 
00000023 00620 P.ADQ: <LONG 35 
00000000" 00624 -ADDRESS P.ADR 
50 20 4B 2F 46 45 44 0068 P.ADT: ‘ASCII \DEF/K PF3 “EXTRACT''/TERM/IF =GOLD\ 
45 54 2F 22 54 43 41 00637 
44 4C 00646 
00000020 00648 P.ADS: .LONG 32 
00090000" 0064¢ “ADDRESS P.ADT ; 
50 4B 2F 46 45 44 00650 P.ADV: ASCII \DEF/K PF4 "SELECT MAIL''/TERM/IF=GOLD\ 
4C 49 41 4D 20 54 43 0065¢ 
4C 47 30 46 0066E 
00000024 00674 P.aDU: .LONG 36 
00000000" 00678 -ADDRESS P.ADV ie e 
4B 20 468 2F 46 45 44 0067C P.ADX: [ASCII \DEF/K KP7 "'SEND/EDIT''/TERM/IF=GOLD\ 
2F 22 54 49 44 45 2 0688 
44 6C 4F 4&7 0069A 
0069 .BLKB 
90000022 006A0 P.ADW: LONG 34 
0000000 ' O06A4 -ADDRESS P.ADX 
4B 20 4B 2F 46 45 44 O6A P.ADZ: -ASCII \DEF/K KP8 "'REPLY/EDIT/EXTRACT''/TERM/IF=G\ 
2F 54 49 446 4 ef 59 0068 
49 2F 4D 52 45 54 2F 006C6 
44 4C 4F 006D -ASCII \OLD\ 
06D *BLKB) 
90000028 604 P.ADY: <:LONG 43 
0 900 * 00608 “ADDRESS P.ADZ = 
48 20 48 zt 46 45 44 OQ06DC P.AEB: <ASCII \DEF/K KP9 ‘’FORWARD/EDIT''/TERM/IF=GOLD\ 
49 44 45 2F 44 52 41 O06EB 


Sete Se Re Se Se Be Be Be Be ee ee Be ee 


D 16 
PERSONAL MAIL UTILITY 14- enn 1386 93:03:98 2. V4.0-742 Page 
14-Sep-1984 12:42: (MAIL. SRCIMAIL.B32;2 
44 4C GF 47 3D 46 49 FA 
1 -BLKB 
B08 O058 4 P.AEA: . LONG 7 
000000' 8 «ADDRESS P.AE8 
ef 48 20 4 sf 46 45 44 C P.AED: .ASCII \DEF/K ""CURRENT/EDIT''/TERM/IF=GOLD\ 
4 49 64 & F ?n ¢ 45 0718 
44 4C GF 47 3D 46 49 OQO72A 
of 1 -BLKB 
a Set 734 P.AEC: .LONG 7 : 
Opgoe 0° 00738 «ADDRESS P.AED 3 
53 Ff 49 46 6 20 3? 50 48 ¢9 4B 2F rh 45 44 QO75C P.AEF: .ASCII \DEF/K KPS “‘FIRST/EDIT''/TERM/IF=GOLD\ Fs 
46 49 2F 4D 45 56 ¢cF 22 54 49 44 & ef * gree $ 
44 4C 4F 7 30 75A : 
0075F -BLKB 1 
std 00760 P.AEE: .LONG 35 3 
o7700 0° the «ADDRESS P.AEF : 
as 53 41 4C 22 8 36 50 48 20 48 2F 46 45 44 00768 P.AEH eASCII \DEF/K KP6 “’LAST/EDIT''/TERM/IF=GOLD\ : 
D 46 49 2F 4D 52 45 54 2F 22 54 49 44 45 2F 00777 : 
44 4C 4F 47 00786 : 
0078A -BLKB 
00000022 0078C P.AEG: .LONG 34 ; 
bopgooy?” 00790 «ADDRESS P.AEH : 
2F 52 49 44 ¢6 0 33 33 48 20 48 2F 46 45 44 00794 P.AEJ: .ASCII \DEF/K KP3 ‘‘DIR/START=999999''/TERM/IF=GOL\ ; 
54 2F 22 39 #39 #39 «39 «+39 «39 «3D «54 «52 «641 «54 «453 = «(007A3 3 
4C 4F 47 3D 46 49 2F 4D 52 45 00782 : 
44 0078C «ASCII \D\ : 
007BD -BLKB 3 
00000029 007CO P.AEI: .LONG 41 : 
Oopooy?” 007C4 «ADDRESS P.AEJ 3 
4E 49 52 50 ¢¢ 20 32 50 48 20 48 ef 46 45 44 O07CB8 P.AEL: .ASCII \DEF/K KP2 ‘'PRINT/PRINT/NOTIFY''/TERM/IF=G\ ; 
22 59 46 49 54 4F GE 2F 5&4 4E 49 52 50 2F 54 00707 3 
47 30 46 49 2F 4D 52 45 54 2F OQO7E6 : 
44 4C 4F 007FO «ASCII \OLD\ F 
007F3 -BLKB 1 
00000028 OO7F4 P.AEK: .LONG 43 3 
00000000" porre «ADDRESS P.AEL 3 
48 43 41 42 22 20 31 #50 48 20 4B 2F 46 45 44 OO7FC P.AEN: .ASCII \DEF/K KP1 "'BACK/EDIT''/TERM/IF=GOLD\ ; 
30 46 49 2F 4D 52 45 54 2F 22 54 49 44 45 2F 00808 3 
44 4C 4F 47 OOBIA ; 
it 9 -BLKB 
00000022 00820 P.AEM: .LONG 4 : 
Doppeoy" 00824 -ADDRESS P.AEN : 
54 58 45 4E 22 $3 30 50 48 20 4B 2F 46 45 44 00828 P.AEP: .ASCII \DEF/K KPO ‘'NEXT/EDIT''/TERM/IF=GOLD\ - 
46 49 2F 4D 52 45 54 2F 22 54 49 44 45 2F 00837 3 
44 4C 4F 47 00846 : 
88 SA -BLKB 
stg: 0 af P.AEO: .LONG 4 : 
0000000° 00 2 «ADDRESS P.AEP ; 3 
4E 49 4D ¢9 4B 2F 46 45 44 00854 P.AER: .ASCII \DEF/K MINUS "SHOW NEW''/TERM/IF=GOLD\ 3 
54 2F 22 45 4— 20 57 4F 4463 : 
44 4C 4F 47 7) 008 ; 
087 -BLKB 1 
seat 78 P.AEQ: .LONG 35 : 
27° P 7¢ -ADDRESS P.AER : fs $ 
4D 4F 43 20 48 2F 46 45 44 80 P.AET: .ASCII \DEF/K COMMA ‘DIR MAIL''/TERM/IF=GOLD\ 3 
54 2F 22 4€C 49 41 4D 79 ¢ 88F : 
44 4C 4f D 0089E H 


16 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY if. Sep-1984 01:01: VAX=11 Bliss=-32 V4.0-742 e 36 
v04=001 14- ~300n 138% 93; 93:98 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 ~~ (14) 
08A3 -BLKB 
99000023 0 AG P.AES: LON 5 : 
" * 008A8 SODRES $ P.AET ; 
44 22 20 64 4F 469 52 45 59 30 48 et 46 45 44 OOBAC P.AEV: ASCII \DEF/K PERIOD "DELETE ‘'/NOTERM/IF=GOLD\ : 
2F 4D 52 45 564 4F 4E 2F 22 20 45 54 45 4C 45 OO8BB ; 
44 4C 4F 47 3D 46 49 OO0BCA : 
08D1 .BLKB 
900 0025 O8D4 P.AEU: .LONG ; 
0000000' 0 08 “ADDRESS P.AEV ; 
45 53 22 20 5 45 S54 4E 45 39 48 2 46 45 44 OOBDC P.AEX: ASCII \DER IK ENTER ''SELECT "'/NOTERM/IF =GOLD\ : 
49 2F 4D 45 54 GF GE 2F 20 54 43 & 4¢ O8EB ; 
44 4C (4F (47 3 4 OBFA : 
0000024 00 P.AEW: -LONG 36 : 
$3388 Beste HERES : 

* 00000000" 00000000' 99000000" 990000 ’ 99000 * 0090C P.ACH: “ADDRESS P.ACI, P.ACK, P.ACM, P.ACO, P.ACQ, - : 
00000000" 00000000" 00000000* 00000000" 00000000* 00000000' 09¢4 P.ACS, P.ACU, P.ACW, P.ACY, P.ADA, P.ADC, - : 
00000000 00000000' 00000000" 00000000' 800000 * 00000000' 0093c P.ADE. P.ADG, P.ADI. P.ADK. P.ADM. P.ADO. - : 
00000000" 09000000" 00000000' 00000000" 00000000" 00000000' 00954 P.ADQ, P.ADS. P.ADU. P.ADW. P.ADY. P.AEA. = : 
00000000" 00000000" 00000000" 00000000" 00000000" 00000000" 0096c P.AEC, P.AEE, P.AEG, P. AEI. P. AEK, P.AEM. = : 

00000000' 00000000" 00000000" 00000000° 00984 P.AEO, P.AEQ. P.AES. P.AEU. P.AEW : 
KEYDEF TAB= P.ACH 
NUMBER_KEYDEFINES= P.ACH=4 
000C 00000 DEF INE_DEFAULT_KEYPAD: 
WORD Save R2, R3 ; 0820 
53 FF6D CF 01 ¢3 00002 SUBL3 #1, NUMBER_KEYDEFINES, R3 > 0868 
52 D4 00008 im «9% : 
14 11 OOOOA BRB 2$ : 
FF67 CF42 DD 0000C 1$: PUSHL KEYDEFTABLI] > 0869 
00000000" 00 9F 00011 PUSHAB MAILS$L_SMG_KEYTABLE : 
000000006 00 02 FB 00017 CALLS #2, SMGSDEFINE_KEY ; 
52 D6 OOOTE INCL : 
53 52 D1 00020 2s: CMPL R3 : 
E7 1B 00023 BLEQU i$ : 
04 00025 RET : 0872 


; Routine Size: 38 bytes, Routine Base: S$CODE$S + 0994 
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ESS=NAMSC_MAXRSS, 
ESA=NAMBUF , 
RSS=NAMSC_MAXRSS, 
RSA=NAMBUF ) ; 


IF ERR(SOPEN(F AB=TMPFAB,ERR=UTILSREPORT_IO_ERROR);, 
RETURN .STATUS); 


SRAB_ wang bony tye yee 
FAB=TMPFAB, 
CTX=MAILS_ OPENIN, 
UBF =IBUF , 

USZ=51 E 


IF ameter preps ps ERR=UTILSREPORT_IO_ERROR);, 
SCLOSE (F AB=TMPF AB) ; 


~“N ~“ 
oo co 
oo Ww 
» vuvuvv 


~“ > | 
oO 
vuvuvv 
COOCOOCOoOCOOOCOoCOoOoOoooOS 


OODOOOOOOOOVOOOOONOs 


3 i oe7? } ROUTINE LOAD_KEY_DEFS = 

3 oe 0875 1 FUNCTIONAL DESCRIPTION: 

: 746 $879 1! If MAILSINIT is defined, load the specified file 
+ 747 0878 1 

: 748 0879 1 i-- 

: 749 0880 2 BEGIN 

; 750 0881 LOCAL 

: 751 O88¢ DESC : VECTORC2,LONG] VOLATILE, 

$ Lee 088 STATUS, 

: t3 08 4 TMPFAB': $FAB_DECL, 

: 754 5 TMPRAB : SRAB “DECL, 

: 755 08 $ TMPNAIA DECL 

: 756 088 NAMBUF BLOCKENAM C_MAXRSS], 

: 757 0888 TRNLNALST © TSLTALSTDE DECL(ITEMS=1), 

: 758 0889 IBUF : S$8BLOCKL2 3} 

: 759 0890 

; 760 0891 BIND 

: 761 0898 DPTR = DESCL1] : REF VECTORC,BYTED; 

: 76¢ 089 

: 76 0894 DESceO] : NAMS. _MAXRSS; 

: 764 0895 2 DESCL1) = 

: 765 P 0896 2 SITMLST_ INIT LITMLST= =TRNLNMLST, 

: 766 0897 : “(I TMCOD=LNM$_STRING,BUFADR=.DESCL1),BUFSIZ=.DESCLO],RETLEN=DESCLO))); 
: 768 P 0899 2 IF NOT STRNLNM(ATTR=ZREF (LNMSM_ CASE BLIND), 
> 769 P 0900 : TABNAM=MAIL$SD-LNM_FILE_DEV, 
: 770 P 0901 LOGNAM=SD_MAIL PstN Tr. 

: 771 0902 3 TIMLST= TRALNMLST) 

: 77 0903 2 THEN RETURN TRUE; 

: 77 0904 2 

: 77% P 0905 2 S$FAB_INIT(FAB=TMPFAB, 

: 775 P 0906 2 ENS=.DESCEOI, 

: 776 P 0907 2 FNA=.DESCL1] 

: 777 P0908 2 DNM='"MAILS$INIT.INI', 

: 778 P 0909 2 CTX=MAIL$_OPENIN, 

: 779 P0910 2 FAC=GET 

: 780 0911 2 FOP=SQ0); 

: 781 0912 2 

: 782 3 SNAM_INIT(NAM=TMPNAM, 


RORSRONONONOPONONN 2 2 SS 
PDONAUE WM —SODNOULWN HO 


N 
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vv 
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1e-Se 1984 01:01: VAX=11 Bliss-32 V4. 
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RETURN .STATUS); 


TMPRABCRABSL_CTX] = 
GET (RAB=TMPRAB, ERR=UT 


- TMPRABLRABSW_RS 
AB 


EAD 
IL tEREPonr 10_ERROR) 


oo 


FUN MOSSE ARO 


ND .DPT REO N NE 
THEN IF ~ERR(SMGSDEF INE KEY(MAILSL_SMG REY TAB LE.DE 
IGNALTMAILS_PARSEFAIC,1 


ooovowvowvownovowvovovovono 
SEE NWN iw 


3 pelelelelelelelelelelolelea) 


0.09 09 09 00 09 09 09 C9 CD CD CD CD CD00 ~ 
ooo 
ooo 
ar at 
MEW OOONOUFEWN—O 


tt I OOO 


RETURN TRUE 


—rnororor 
m 


49 4E 49 2— 54 49 4E 49 24 4C 49 41 4D OO9BA P.AEY: 


00000 LOAD_KEY_DEFS: 
=WORD 


oc 


F 
F 


oo oTlwa.n0 ry 


-—om 
oon 


3oowm wwmno°oo 
OooFro ©-COm"O™ OL BSEMoOOCoOMm 


mooo 


mo 


Fuss); 


\MAILSINIT.ININ 
SYSSTRNLNM, SYSSOPEN 


SYSSCONNECT, SYSSCLOSE 
SYSSGET 


4,R5,R6,R7,R8 


—DD 
co 


IT, R7 
T.LO_ERROR, R6 


SSIIMBLKPTR)* 
pe erre + 


BALL $so ra Gs ae 
(SP) 


#5, SYSSTRNLNM 
RO, 1$ 


2 
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#0, (SP), #0, #80, SRMS_PTR 


#20483. SRMS_PTR 
S_PT 33 


+ SRM SPTRs 
SRMS_PTIR 
} ride 86: “ens corne2s 
DE §c+4, SRS PTR+44 
P.AEY, SRMS_PTR+48 
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DC AD F8 AD 90 0008C MOVB DESC, $RMS_PTR+52 ; 
DD AD Op 30 0081 MOVB iit sine Pines’ : 
0060 8F 00 5E ions 0 ¢ 099 MOVCS #0, (SP),~#0, #96, SRMS_PTR + 0917 
FFOS CD 6002 BF BO it MOVW #24578, SRMS_PTR : 
FFOG CD 1 gE DOAG MNEGB #1, $RMS_PTRF2 : 
FFO8 CD 0114 cE E OOOA MOVAB NAMBUF, SRMS_PTR+4 : 
FFOE CD 1 BE 008 MNEGB #1, SRMS_PTR#10 : 
FFI CD 0114 cE 9— 0008 MOVAB NAMBUF, SRMS_PTR+12 : 
6 0D 0008 PUSHL + 0920 
AS AD 9F 000C PUSHAB TMPFAB : 
000000006 00 98 FB b90¢ CALLS #2, SYSSOPEN : 
1 i SOOCA BLBS STATUS, 2$ : 
0044 8F 00 6E 00 2¢ O00cE 2s: MOVCS #0, (SP), #0, #68, $RMS_PTR t 0926 
FF64 CD 0000 ; 
FF64 CD 4401 8F B80 000D8 MOVW #17409, $RMS_PTR : 
FF7C CD OO7E109A 8F DO OOODF MOVL #8261786, $RMS_PTR+24 : 
84 AD 0200 8F BO O0OES MOVW 12, $RMS_PTR? : 
AD 046 AE 9E OO0EE MOVAB IBUF, $RMS-PTR+36 : 
AO AD AS AD 9E OO0F MOVAB TMPFAB, S$RAS_PTR+60 : 
56 DD 000F8 PUSHL : 0930 
FF64 CD 9F OOOFA PUSHAB TMPRAB : 
000000006 00 02 FB OOOFE CALLS #2, SYSSCONNECT ; 
52 50 DO 0010 MOVL RO, STATUS ; 
OA 52 £8 00108 BLBS STATUS, 3$ : 
AS AD SF 0010B PUSHAB TMPFAB ; 
6B 01 FB 0010E CALLS #1, SYSSCLOSE ; 
50 52 dO 00111 MOVL STATUS, RO : 
04 00114 RET ; 
FF7C CD 007E10B0 8F DO 00115 3$: MOVL #§ #8261808, TMPRAB+24 : 0932 
56 DD OO1I1E 4$: PUSHL R6 : 0933. 
FF64 CD 9F 00120 PUSHAB TMPRAB ; 
000000006 00 O¢ FB 00124 CALLS #2, SYSSGET : 
3E 5 9 00128 BLBC ; 
F8 AD 86 AD 3C 001 £ MOVZWL TMPRAB+34, DESC : 0935 
FC AD 8C AD DO 001 MOVL TMPRAB+40, DESC +4 : 0936 
FB AD D3 00138 TSTL DESC : 0937 | 
E1 13 09138 BEQL = : 
21 FC BD 91 00130 CMPB  =s- @D PTR, #33 : 0938 
DB 13 00141 BEQL «6 4$ : 
F8 AD OF O0145 PUSHAB DESC + 0940 
00000000' 00 9F 00146 PUSHAB MAILSL_SMG_KEYTABLE : 
000000006 09 98 FB O14¢ CALLS #2 SNGSDEF INE_KEY F 
C E 15 BLBS STATUS, 4 : 
50 bb 0156 PUSHL ; 
F8 AD OF 00158 PUSHAB ; 
1 DD 00158 PUSHL : 
00761248 8F DD 0150 PUSHL #8262216 : 
000000006 00 04 Fe 16 CALLS #4, LIBSSIGNAL ; 
B2 1 16A BRB 4$ : 093 
AB AD 9F 0016C 5$: PUSHAB TMPFAB > 094 
$8 1 FB O1gf CALLS #1, SYSSCLOSE : 
0 1 p 1 : 68: MOVL #1. RU > 0944 
4 0017 RET > 0945 


3; Routine Size: 374 bytes, Routine Base: S$CODE$ + 09C7 
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ROUTINE MAIL_DISPATCH = 
i FUNCTIONAL DESCRIPTION: 


This routine attempts to parse the input file spec from DCL 
and then dispatches to process either a CLI, or interactive command 


DESC : SBBLOCKCDSCS$C_S_BLNI, 
STATUS; 


-FP = IGNORE_SIGNALS; 


STATUS = 0; 

STATUS = CLISGET_VALUE(SD_FILE,INPUT_DESC); 

FP = 0; 

INIT _SDESC(DESC); 

DESCCDSC$W_LENGTH] = .MAILSL_USRSYSBUFCVMD_B_FNMLNG); 
DESCCDSCSA_POINTER] = MAILSL_USRSYSBUFCVMD T_FWDONAM) 


A + 
-MAILSL_USRSYSBUF CVMD_B_FWDLNGJ; 
MAILSSET_NAME (DESC); 
RETURN (IF .STATUS 

AND 


STS$M_INHIB_MSG 


m 
z 
J 
ee 


000C 00000 MAIL_DISPATCH: 
- WORD 


Save R2,R3 
53 F866 «CF 9E 0000 MOV IGNORE SIGNALS, R3 
SE 08 C2 0000 SUBL2 #8, SP 
6D ‘ i OA MOVAB IGNORE_SIGNALS, (FP) 
p D CLRL STATUS 
00000000" 00 9F 0000F PUSHAB INPUT DESC 
FSDA CF 9F 00015 PUSHAB SD_FICE 
000000006 00 08 FB 00019 CALLS #27 CLISGET_VALUE 
52 dO 000 OVL RO. STAT 
6D D4 000 CLRL (FP) 
6 C 000 CLRO  —~dDESC 
50 000000006 0 000 OVL MAILS$L_USRSYSBUF, RO 
bE 42. AO 9B 00 5 MOVZBW 66(RO)> DESC 
51 4 Ad 9A 00 MOVZBL 67(RO). R1 
04 AE 44 A140 9E 00 MOVAB 68(R1)CROJ, DESC+4 
SE DD 0003C PUSHL SP 
000000006 00 01 FB 0003E CALLS #1, MAILSSET_NAME 


41 
(16) 
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4 BLBC TATUS, 1$ : 0975 
03 00000000' i rf} BLBS : I_SIGNALLED, 1$ : 037 
00000000v re a CALLS #9, CLI_ COMMAND : 097 
00000000v 00 00 FB 0088 1$: CALLS #0, INTJOB : 0978 
50 01 iC 01 FO O005F 2$: INSV #1, #28, #1, RO : 
04 00064 RET + 0979 
; Routine Size: 101 bytes, Routine Base: S$CODE$ + 0B3D 


; Routine Size: 45 bytes, Routine Base: S$CODE$S + OBA2 
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3 82) 980 1 ROUTINE CHECK_SERVER : NOVALUE = 
; § ¢ 981 1 !++ 
3 S27 8 ¢ i FUNCTIONAL DESCRIPTION: 
: B2) 984 1! If /PROTOCOL specified on the command Line, and the process 
3 28 985 1! has SYSPRV and DG TACH. then pretend it's a network server. 
3 Bef B89 } This allows foreign protocol input without network connections. 
; 859 0988 BEGIN 
; 860 0989 BUILTIN FP; 
; 861 0990 
3 B66 0991 FP = JGNORE SIGNALS 
; 86 0996 IF CLISPRESENT(SD_ PROTOCOL) 
; 864 099 AND .MAIL$Q_PROCPRIV PRVSV _SYSPRV] 
3; 865 0994 AND .MAIL$Q_PROCPRIVCPRVSV Bg race 
; 866 0995 THEN MAILSGL_FLAGSCMAIF_V_NETJOB) = 1; 
3; 867 0996 2 RETURN; 
: 868 0997 1 : 
000C 00000 CHECK_SERVER: 
eWORD Save R2,R3 ; 0980 
53 F CF 9E 0000 MOVAB IGNORE_SIGNALS, R3 g 
52 00000000" 00 9€ 0000 MOVAB MAIL$Q_PROCPRIV, R2 3 
6D 63 9E OOO0E MOVAB IGNORE SIGNALS, (FP) ; 0991 
F609 CF 9F 00011 PUSHAB SD_PROTOCOL ; 0992 
000000006 00 01 FB 00015 CALLS #1, CLISPRESENT : 
0D 50 €9 OOOIC BLBC a : 
08 03 A2 04 €1 OOOTF BBC #4, MAILS$Q_PROCPRIV+3, 1$ ; 0993) 
04 62 05 £1 00024 BBC #5. MAIL$Q~PROCPRIV, 1$ > 0994 
CO —A2 02 88 00028 BISB2 #2, MAILS$SGC_FLAGS ; 0995 
04 0002C 1$: RET 3; 0997 
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v04-001 -Sep-1984 12:42: DISKSVMSMASTER:CMAIL.SRCIMAIL.B32;2 (18) 


0 
; 870 0998 1 GLOBAL ROUTINE MAIL = 
. Sr 0999 (1 
3 Bre 1000 1 !+4+ 
: 1h 100) : FUNCTIONAL DESCRIPTION: 
; 875 1808 1 i Main entry point to MAIL utility. Determines type of use: CLI command 
; 876 1004 1! processor, interactive mail command processor, or slave process for 
; 877 1005 1! network mail processing. 
; 878 1006 1! 
: 879 1007 1 | INPUTS: 
; 880 1008 1! 
; 88) 1009 1! Command Language interpreter parameters. 
; 910 7} 
; 88 1011 1 ! OUTPUTS: 
>; 4884 1Ol¢ 13 
> 885 1013 1! Mail utility executed. 
; 886 1014 1 i-- 
; 887 1015 2 BEGIN 
> 888 1016 2 LOCAL 
; 889 1017 2 DESC : VECTORC2,LONG] VOLATILE, 
; 890 1018 2 PTR : REF SBBLOCK, 
; #4891 1019 2 PRIVMASK SBBLOCK(8) 
: 89 1020 2 TRNLNMLST : SITMLST_DECL(ITEMS=1), 
; 89 1021 2 ATUS; 
: 894 Ise 2 ae 
3 Boe oe? 2 GNABLE MAILSHANDLE; ! Enable condition handler 
; a4 Ise 3 Determine if process is an interactive or network job 
; 899 P 1027 2 IF vain ge bs ke GETPROCSTS);, 
; 900 1028 2 TURN .STATUS;); 
; 901 13> 2 MAILS$GL FLAGS MAIF Vv _BATCH) = = .PROCSTS<$BITPOSITION(PCB$V_BATCH) ,1>; 
: 902 1030 MAILSGL_FLAGS MAIF “V-NETJOB] = .PROCSTS<$BITPOSITIO ON(PCBSI _NETWRK) , i>; 
; 903 1031 CHECK_SER RVER 
3 904 1032 IF NOT "MAILSGL_ FLAGSCMAIF_V_NETJOBJ 
; 905 1033 THEN BEGIN 
; 906 1034 3 
: 907 1035 ; i Disable privs that user doesn't have 
: 908 1036 
3; 909 1037 3 PRIVMASK<O 32,0> = 0; 
> 910 1038 3 PRI VMASKCPRVS$V -WORLD bf NOT .MAIL$Q_PROCPRIVCPR ysv open 
; 911 1039 3 PRIVMASKCPRVS$V— et = NOT 8 a Proce VCPRVS 
; 912 1040 PRIVMASKCPRV v7$ PRY) : NOT .MAIL$Q_P CPRIVEPRVSY YSNAM]; 
3; 913 1041 PRIVMASKCPRV =31SPRY = NOT *RAILSO™ PROCPRIV PRVSV_ SySPAVI: 
; 914 Hk | PRIVMASK< 
: 915 1043 3 SSETPRV ENBFLG! > PRVADR=PRIVMASK) ; 
; 916 1044 END; 
s 917 1045 
: 44 eg | Allocate some buffers 
: 920 1048 it ERR(LIBSGET_VM(ZREF (UAFSC_LENGTH) ,MAILST_UAF _BUFF);, 
: 921 1049 RETURN” SIGNAL(.STATUS)); 
3; 92 1050 IF _ERR(LIBSGET_VM(ZREF ( MAILSGL_BIGBUFSIZ*512) ,MAILSGL_BIGBUFFER);, 
$ 3S 193) Ny NAL(.STATUS)); 
: 4 P 1 26 IF oERR (RAT icsue WNITOS, 
$ 382 105 TURN .STATUS); 
: 926 1054 MAIL$Q_ INPTRANCDSCSW. LENGTH) = (IF .MAILSGL_FLAGSCMAIF_V_NETJOB] 


’ 
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MAILSMAIL VAK/ VRS 

v04-001 
927 1055 
928 19 
999 1039 
930 P 1 3 
931 P 105 
9 ¢ 1060 
4 1061 
9 1906 
935 106 
9 1064 
938 1966 
939 1067 
940 1068 
941 1069 
oC8 1070 
Ge 1071 
944 1976 
945 107 
946 1074 
947 1075 
948 1076 
949 1077 
950 1078 
951 1079 
952 1080 
953 1083 
954 P 1086 
955 P 108 
956 1084 
957 1085 
958 P 1086 
959 P 1087 
960 P 1088 2 
961 P 1089 § 
96 1090 
96 1091 2 
964 1998 M4 
965 109 
966 1094 
967 1095 
968 1096 
969 P 1097 
970 P 1098 
971 1099 
+4 1100 
97 P 1101 
974 P a 
975 P 110 
976 P 1104 
977 P 1105 
978 1106 
979 1107 
980 1108 
981 1109 
98 1110 
98 1111 


PERSONAL MAIL UTILITY 
THEN 2*NAMSC_MAXRSS 
ELSE NAMSC_MAXRSS); 
IF LERR(LIBSGET_VM(MAILSO, INPTRANCDS(SW LENGTH] 
AIL$Q_INPTRANCDSCSA_POINTER]);, 
RETURN SIGNAL(. STATUS); 


Initialize global CNCT block 


ME ; 
= MAIL$G_CNCT CNCT_L —FLINK); 


MAILS$Q_USERNAMECDSC$A_POINTER] = USERNA 
MAILS$G_ CCT CNCT_L_FLINK 
MAILSG_CNCTECNCT_L_BLINK] = MAILSG_CNCTCCNCT_L-FLINKJ; 
MAILSG~ cncT CNCT-Q “ADRUSTI¢ 4 = 
he G_CnCTCCNCT_Q ADRLSTI)<0, 32,0> = MAIL$G_CNCTCCNCT_Q_ADRLSTI; 

MAILSG_ cnet CNCT_Q_LNK WEL STI® t= 

(MAIL$G_CNUTCCNCT_Q LNKLSTI)<0, 32,0> = MAIL$G_CNCTCCNCT_Q_LNKLSTJ; 
PTR = MAILSG_CNCTCCNCT_Q_FROMDESC) 


Init =PDESC (PTR) 
MAILSG CNETECNCT _Q_TODESCI; 

INIT ~DDESC (PTR) 

PTR = MAIL$G CNETCONCT _Q_SUBJDESC); 

INIT_DDESC(PTR) ; 


i Translate MAILSSYSTEM_FLAGS 


= ,MAILSGL_BIGBUFFER: 
SITMLST_INIT(CITMLST=TRNLNMLST, 

(1TMCOD=LNM$_STRING,BUFADR=. MAILSGL _BIGBUFFER, 
BUF ST2=64 ,RETLEN=DESC) 


IF STRNLNM(ATTR= et rey, mip BLIND), 
TABNAM ~Lsest 


NLNMLS 
THEN IF CALL Td toese GE TNUM STATE GETNUM _KEY) 
THEN MAICSGL_SYSFLAGS = .TPA_N 


Translate SYSSINPUT or SYSS$NET Logical name and get device's characteristics 


SITMLST_ INIT CITRLSTs TRNLNMLST, 
(1 TMCOD= inns STRING, BUFADR=.MAIL$Q_INPTRANCDSCSA_POINTER], 
FSTZ=. MAILSQ_ INPTRANLDSCSW LENGTH) ,RETCEN= MAIL$O_ INPTRAN)); 


STATUS = STRNLNM(ATTR=ZREF(LNMSM CASE BLIND), 
TABNAM=MAILS$SD_LAM FICE stn 
LOGNAM= (IF *AATLSGC LABS MAIF V_NETJOB] 
HER $ IPTORT'SYSSNET 
ELSE HT DESC), 


ITMLST=TRNLNMLST); 
IF CHSRCHAR(.MAILS$O_ INPTRANED DSCSA_POINTER]) EQL ESC ' Check for RMS escape 
THEN BEGIN f so, strip it off na 
MAIL$Q_INPTRAN[DSCS$W_LENGTH] = .MAIL$Q Sab ttitre LEN NGTH] - 4: 
SA-POINTER] = .MAILSQ"INPTRANLDSCSA-POINTER] + 2; 


MAIL$Q~ INPTRANLDSCSA 
END; 


arn 
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! 

! Translate SYS$NODE. Strip off the leading ‘'_"' and trailing colons 
if they are present. 

MAIL$Q _SYSNODECDSCSW_LENGTH) = ’ 

MAIL$Q- SYSNODE DSCSA_ pe hy ©S 4 SNODEBUF ; 

SITMLST_INITCITMLST=TRNL 


~(TTMCOD=LNMS.. STRING. BUF ADR=SYSNODEBUF ,BUFSIZ=64, RETLEN=MAIL$Q_SYSNODE)); 
IF NOT (STATUS = STRNLNM(ATTR=ZREF (LNMSM_CASE_BLIND), 
TABNAM=SD_LNMSSYSTEM 


LOGNAM=SDESCRIPTOR(” Sy SSNODE* ), 
ACMODE=EREF (PS L$C_EXEC), 
T=TRNLNAL ETT 
THEN MAILS$Q _SYSNODECDSC$0_ LENGTHISS 0 
ELSE BEGIN 
IF .SYSNODEBUFCLO] EQL il 
THEN BEGIN 
MAIL$Q_SYSNODECDSCS$W_LENGTH] = .MAIL$Q_SYSNODECDSC$W_LENGTH] - 
MAILSQ—~SYSNODELDSC$A_POINTER] = .MAIL$O_SYSNODELD CeSK LBOINTER] $1; 


nt 
INCRU I FROM 0 TO 1 
DO IF NOT sont ig! yt CH(.MAILS$Q SYSNODECDSCSW_ LENGTHI, 
-MAIL$Q NOBECDSCS$A_POINTERJ,':')) 
THEN MAILSQ_ SYSNODELDSCSu StENGTHI = “MAILSQ. SYSNODECDSC$W_LENGTH] - 1; 


Make a copy with colons on the end for forwarding loop detection 
STRSCONCAT (MAILSQ_SYSNODEZ ,MAIL$Q_SYSNODE ,SDESCRIPTOR(* ::")); 


Get SYSSINPUT and SYSSOUTPUT device characteristics 
BEGIN 4 
GETOVILST : SITMLST_DECL(ITEMS=2); 


SITMLST_INITCITMLST=GETDVILST, 
(ITACOD=DVI$_DEVCLASS, BUF ADR=MAILSL_INPCLASS) 
(ITMCOD=DV1$_ DEVDEPEND , BUF ADR= MAILSC_ INPDEVDPS) ; 


$GETDVIW(DEVNAM=MAIL$Q_INPTRAN, 
ITMLST=GETDVILST); 


Sim, st INITCITMLST=GETDVILST, 
(ITACOD=DVIS_DEVCLASS, BUF ADR=MAILSL_OUTCLASS) 
(1 TMCOD=DvI$— DEVDEPEND ,BUF ADR=MAILSL _OUTDEVDPS) ; 


SGETDVIW(DEVNAM=S$DESCRIPTOR(*SYSSOUTPUT'), 
ITMLST=GETDVILST); 


IF .MAILSL_INPCLASS EQL DCS$_TERM 
THEN MAILSGL_FLAGSCMAIF-V_ITERM] = 


IF .MAIL$L_OUTCLASS EQL DC$_TERM 
THEN BEGIN 


ARIPOPIPOPINIWI AAAI NNN ANA AAAI AI RIP NAAN & B&B BWI) 
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AST [MA AIL. IJMAIL.B32;2 (18) 
3 196) 1169 MAILSGL_FLAGS me =: : 
H 13e8 1379 a FLAGSLMA OPE  AAILSL_OUTDEVDP<$B1TPOSITION(TTSV_ SCOPE) ,1>; 
3; 10446 1128 
; 1065 117 MAILSL Le? 
; Inee 1174 SUHAIF eV BATC SITION(TT$V oF NT (oF TELOMERE TRE T TS PAGE)>; 
; 104 1175 IF MAILEGL, FLAGS MAIF No need for pages in batch 
: 10468 1326 CSL LINES eat 
$ ed A THEN MAILSC BUTLINES = LN TFFFFFFE!: 
$ 192) 1108 ; Open the system user authorization file and the mail system data file 
; 1088 118) if -ERR(MAILSOPEN_UAF(); ,RETURN .STATUS); 
; 1096 118¢ IFTERR(MAILSOPEN-SYSMAI (); ,RETURN .STATUS); 
: 1029 1188 } Create the string descriptors for temporary files 
Py 4 H 
: 1058 1186 pescegy = NAMSC_MAXRSS; 
> 1059 1187 2 DESCL1) = .MAILSGL BIGBUFFER; 
; 1060 1188 SYSSFAO( CIF -MAILSC_MYPID<16,16,0> NEQ 0 
: 1061 1189 THER Te ILe"bam seats 
3 Inet 1190 § ELSE TMPFILE_FAO_DESC) ,DESC,DESC,.MAILS$L_MYPID); 
; 106 1191 STRSCOPY gg DESC »DEST); 
: 1064 1338 2 DESCLO] = NAMSC_MAX 
: 1065 119 é DESCE1) = .MAILSCL.BIGAUFFER; 
: 1066 1194 SYSSFAO((IF .MAILSC_MYPID<16,16,0> NEQ 0 
> 106 1195 3 THE TPF ILE! _FAO_CDESC 
; 1068 1196 2 PFILE1_FAO_DESC) ,DESC,DESC, .MAIL$L_MYPID); 
5 1389 1136 § arr Dx CTMPF ACE DESC. DEST); 
s 18 1330 § If this is a network process, dispatch to the network server code 
; 1078 1201 2 IF me FLAGSCMAIF_V_NETJOB) 
3 1074 1202 2 THEN RETURN NETJOBT) 7 
3; 1075 1203 2! : 
3 iore 34 é Declare an exit handler to clean up any logical Links on exit 
; 1078 1206 $ SDCLEXH(DESBLK=EXIT_BLOCK); 
: 1079 1207 2! 
: 1080 1208 2! Dispatch according to whether this is a CLI command request, an interactive 
; 1081 1209 ! mail utility session. 
; He 1210 ! 
: 108 1211 
3: 1084 1$1§ § RETURN MAIL_DISPATCH() 
3; 1085 121 
3; 1086 1214 1 END; 


54 45 4E 24 53 59 53 OOBCF P.AFA: .ASCII \SYSSNET\ : 
OBD -BLKB 
00000007 OOBD8 P.AEZ: .LONG : 
00980090" pepe ADDRESS P.AFA 3 
45 46 4F 4E 24 53 BEO P.AFC: .ASCII \SYSS$NODE\ ; 
aia B OBE8 P.AFB: .LONG : 
ae OBEC ADDRESS P.AFC F 
OBFO P.AFE: .ASCII \i:\ : 


RR A I 
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v0e-001 aes Ti ee | See HS rr tat ey 5 
OBF2 .BLKB ; | 
00900006" 8 a “TONG. 8 AFE - , 
546 55 50 54 55 GF 26 53 8 g ere P.AFG: .ASCII \SYSS$OUTPUT\ : 5 | 
006 -BLKB 2 :] 
QOOO000A OOCOB P.AFF: .LONG 10 : 3 | 
00000000' 00¢0C .ADDRESS P.AFG : : 
.EXTRN SYSSGETJPIW, SYSSSETPRV 3; 1 
-EXTRN SYSSGETDVIW, SYSSDCLEXH : 
O7FC 0000 .ENTRY MAIL, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 ; 0998 | ; | 
5A 000000006 90 SE ite MOV STRSCOPY_DX, R10 : 3 | 
59 000000006 00 9€ 00009 MOVAB SYS$FAO,~R9 : e 
58 000000006 00 9€ 00010 V SYS$GETOVIW, RB : | 7 
57 000000006 00 9€ 00017 MOVAB SYSS$TRNLNM, R7 : | 7 1 
56 000000006 00 9E O001E MOVAB LIBSGET VM, R6 ; : | 
55 00000000" 00 9E 00025 MOVAB SYSNODEBUF, R5 ; : | 
54 F52C 4«6CF OSE «0002 MOVAB SD_LNMSSYSTEM, R4& : | 3 
53 00000000" 00 9E 00031 MOVAB MATLSGL_FLAGS, R3 ; : | 
SE BC AE 9E 00038 MOVAB -68(SP). SP : 31 
6D 0398 CF DE 0003C MOVAL 29%, (FP) + 1015 3 1 
7E 7C 00041 CLRQ. = (SP) : 1028 3 
7E D4 00043 CLRL = = (SP) : 31 
FEC C4 9F 00045 PUSHAB GETPROCSTS : 31 
7E 7C 00049 CLRQ = =(SP) : 31 
7E D4 00048 CLRL -(SP) ; 3] 
000000006 00 07 FB 0004D CALLS #7, SYSS$GETJPIW : 3 1 
01 50 €E8 00054 BLBS STATUS, 1$ : “oe 
04 00057 RET : 31 
50 D1 01 06 EF 00058 1$: EXTZV #6, #1, PROCSTS+1, RO : 1029 z | 
01 A3 01 01 50 FO 0005E INSV RO, #1, #1, MAIL$GL_FLAGS+1 : & 
50 D2. AS 01 05 EF 00064 EXTZV #5, #1, PROCSTS+2, : 1030 3 1 
63 01 01 50 FO OO06A INSV RO. #1, #1, MAILSGL_FLAGS : 31 
FFIE CF 00 FB O006F CALLS #0, CHECK SERVER + 1031 3 
50 63 01 £0 007% BS #1, MAILSGL_FLAGS, 2$ : 1032 51 
34 Ar D4 00078 CLRL —— PRIVMAS : 1037 : 
50 42. AB 01 00 EF 00078 EXTZV , #1, MAIL$Q_PROCPRIV+2, RO : 1038 ; 
50 50 92 00081 MCOMB RO. RO ; F 
36 OA 01 00 50 FO 00084 INSV RO, #0, #1, PRIVMASK+2 ; : 
50 42 A3 01 02 EF OO0BA EXTZV #2, #1, MAIL$Q_PROCPRIV+2, KO : 1039 : 
50 50 D2 00090 MCOML RO. RO : : 
36 AE 01 02 50 FO 00093 INSV RO, #2, #1, PRIVMASK+2 F ; 
50 40 AB 01 08 EF 00099 EXTZV #2, #1. MAIL$Q_PROCPRIV, RO > 1040 | : 
50 50 D2 0009F MCOML RO, : ; 
34 OA 01 02 50 FO 000A2 INSV RO, #2, #1, PRIVMASK : | : 
50 43 AS 01 04 EF O00A8 EXTZV #4, #1, MAIL$Q_PROCPRIV+3, RO > 1041) ; 
50 50 D2 OOOAE MCOML RO. RO : ; 
37s 01 04 50 FO 00081 INSV. RO. #4, #1, PRIVMASK+3 : 3 
38 OA D4 0087 CLRL = PRI VMASK+4 : 1043 : 
7E 7C OQOOBA CLRO = = (SP) : 104 : 
3c =O AE. s«O9F:«00BC PUSHAB PRIVMASK : | : 
7E D4 OOOBF CLRL = = (SP) : | : 
000000006 00 o4 FB 000C1 CALLS #4, SYSSSETPRV : | 3 
000090006 bo SF Q00CB 28: PUSHAB MAIL ST_UAF BUFF : 1049 : 
08 AE 0584 = 8F 3¢ NOOCE MOVZ2WL #1412, ~B(SP) : : 
08 AE OF 0U004 PUSHAB 8(SP) : : 


ry 

MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 49 | 
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66 Q FB 00007 CALLS #2 L 1886 T_VM : | : 

P 2 oF Mii PtenaAB A RAILS 1GBUFF : oe 3 

08 AE 10 A3 09 78 O000E0 ASHL sicle OB IGBUFSIZ, 8(SP) : : 

08 AE OF OES PUSHAB : ; 

66 9 i: O0E ALLS te Pe 1escer. vM : : 

3A E9 OOOEC BLBC = STAT $~ : | ; 

000000006 00 00 FB OOOEF CALLS #0, MAIL$IOSUB_INIT : 1053) ; 

01 50 EB O0F6 BLBS § STATUS, 3$ ; : 

4 000F9 RET : ; 

07 63 1 é! OOFA 3$: BBC #1, MAILSGL_FLAGS, 4$ + 1054 ; 

50 O1FE BF 3¢ bore MOVZWL #510, RO + 1055 F 

4 11 0010 BRB : ; 

50 FF BF 9A 00105 4$ MOVZBL RO + 1054 : 

48 A3 50 BO 00109 5$ MOVW R MAIL$OQ ey ga : é 

4C A3 9F 0010D PUSHAB MAIL$Q_INPTRAN+ + 1060 : 

48 Ad OF 90110 PUSHAB MAIL$Q~ INPTRAN : ; 

66 02 FB 0011 CALLS 1 T_VM : ; 

OA 50 £8 00116 BLBS STATUS, 7 : : 

50 DD 00119 6$ PUSHL STATUS F $ 

000000006 00 01 FB 00118 CALLS #1, LIBSSIGNAL : : 

7%, A EO AS 9E $0158 7$ MOVAB USERNAME, MAIL$Q_USERNAME+4 : 1064 | ; 

78 «AS 78 AS YE 0128 MOVAB MAIL$G_CNCT, MAIC$G_CNCT : 1065 : 

7¢ A3 78 AS 9E Bo tgd MOV MAIL$G_CNCT, MAIL$G_CNCT+4 : 1066 ° 

50 00AO C3 9E 00132 MOVAB MAIL$G~CNCT+40 > 1068 | ; 

0OAO «C3 50 00 00137 MOVL RO, MATL$G_CNCT+40 ; : 

OOAS C3 50 DO 0013c MOVL RO, MAIL$G-CNCT+44 ; ; 

50 00OA8 C3 SE 00141 MOVAB MAILS$G CNCT+48, R + 1070 ; 

00A8 C3 50 DO 00146 MOVL RO, MATL$G_CNCT+48 : : 

OOAC C3 50 00 00148 MOVL RO MAILSG CNCT #52 ; F 

50 0080 C3 9E 00150 MOVAB MAILS GACNCT#B. P : 1071 ; 

60 02060000 8F 00 00155 MOVL asacrt9 (PTR + 1072 : 

04 AO D4 0015C CLRL : ; 

50 0088 C3 9E 0015F MOVAB MATLSG GACNCT#16,, PTR + 1073 ; 

60 02060000 8F DO 00164 MOVL #346719 (PTR : 1074 : 

04 AQ D4 00168 CLRL ; : 

50 0090 C3 9E 00166 MOVAB MATLSG gic T24 PTR : 1075 : 

60 020E0000 8F 00 0017 MOVL #344719 TR) : 1076 : 

04 AO D4 OO17A CLRL ; ; 

3c =O AE. s«#4 00170 CLRL DESC. : 1080 : 

51 14 A DO 00180 MOVL MAILSGL_BIGBUFFER, R1 ; 1081 3 

40 AE 51 DO 00184 MOVL DEST+4 $ 3 

50 24 AE 9 p1g8 MOVAB TRNLNBLST SSITMBLKFTR . 1084 | 3 

80 00020040 8F 00 001 c MOVL (SSITMBLKPTR)+ : ; 

80 1 DO 0019 MOVL RI test rms KPTR)+ : F 

80 3c AE. «9E (00196 MOVAB DE CSSTTRELKPTRs : : 

80 D4 0019A CLRL SITMBLKPTR) + ; | : 

24 AE OF 0019C PUSHAB TRNUNMCST > 1090 : 

08 AE 01 DO 0019F MOVL #1, 8(SP) ; | : 

08 AE 9F OO1A3 PUSHAB 8(5P) ; : 

44 AG OF OO1A6 PUSHAB SD_MAILS$SYSTEM_FLAGS : : 

4 DD 001A9 PUSHL R : : 

10 AE 02000000 F DO 1A MOVL #3355432, 16(SP) : : 

1 AE F 001B PUSHAB Bee ; ; 

67 FB 001B6 CALLS ' + $YSSTRNLNM : : 

1D 0 £9 00189 BLBC ; ; 
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| 000000' 9F 001B PUSHAB GETNUM_KEY : 1091. ; 
| tastdaitdee $8 OF a PUSHAB GETNUM-STATE : ° | ; 
44 Ar 9F OOIC PUSHAB pest ; ; 
F527 —s CF Q FB 01CB CALLS #3, CALL_TPARSE 3 ‘ 
06 Q E 9100 BLBC =_«aRO, BS : | ; 
18 «OA FECO C5 00 001D MOVL =‘ TPA_NUMBER, MAILSGL SYSFLAGS : 1092) : 
50 +. a 43 0109 8$ MOVAB TRNCNML GT $$IT 3: 1099 ; 
80 48 AS B 9910p MOV MAILSQ_INPTRAN, CSSITMBLKPTR) + : | ; 
80 02 BO OO1E1 MOVW #2, (SSITMBLKPTR)+ : : 
| 80 4c AS DO COTES MOVL  MAILS$Q_INPTRAN+4, (SS$ITMBLKPTR)+ : ; 
| 80 48 A3 SE OO1E8 MOVAB MAILSQ"INPTRAN, ($$ITMBLKPTR)+ : ; 
80 p4 OOtEC CLRL (SSI THBLKP PTR) + : F 
24 AE OF OOTEE PUSHAB NMLST : 1106 | : 
| 7E 04 OO1F1 CLRL es) : ; 
07 O01 £1 OO1F3 BBC #1, MAILSGL_FLAGS, 9$ : ; 
50 OA6C C4 SE OO1F7 MOVAB P.AEZ, RO : é 
05 11 OO1FC BRB : ; 
50 FEBC C4 Of OO1FE 9$: MOVAB SYSIN_DESC, RO ; : 
50 DD 00203 10$ PUSHL : | ; 
16 AG 9F 00205 PUSHAB MAIL$SD NM FILE_DEV : ; 
14 AE 02000000 8F D0 00208 MOVL  #33554432, 20(SPY : ; 
. 14 AE 9F 00210 PUSHAB 20(SP) : | : 
67 05 FB 00213 CALLS #5, SYSS$TRNLNM : ; 
51 4C A3 00 00216 MOVL § MAIL$Q_INPTRAN+4, R1 + 1107) : 
1B 61 91 OO2TA CMPB=s«(R'1), B27 : : 
08 if 0021D BNEQ 118 : ; 
48 AB 04 A2 0021F SUBW2 #4, MAILSG_INPTRAN > 1109 : 
4c OAS 04 CO 00223 ADDL2 #4. MAIL$Q~ INF RAR s4 : 1110 ; 
0344 (3 40 8F 9B 00227 11$ MOVZB's #64, MAIL$O_SYSN : 1116 ; 
0348 (3 65 9E 00220 MOV48  SYSNODEBUF, “MAIL$Q SYSNODE +4 + 1117 ; 
5} 24 AE 9E 00232 MOVAB TRNLNMLST, $$IT + 1119 ; 
81 00020040 8F DO 00236 MOVL #131136 (SSI TMBLEPTR)+ : ; 
81 65 9E 0023D MOVA'B SYSNODEBUF, ($$ITMBLKPTR)+ : : 
81 0344 C3 9% 00240 MOVAS MAIL$Q SYSNODE, ($$ITMBLKPTR)+ : ; 
81 D4 00045 RL ($$ITMBLKPTR) + : ; 
24 AE 9F 00247 PUSHAB TRNLNMLST + 1125 : 
08 AE 01 DO 0024A VL #1, BC SP) : : 
08 AE 9F 0024E PLISHAB 8 (SP) : ; 
OA7C C4 OF 00251 PUSHAL P.AFB : ; 
54 DD 00293 PUSHL R4 : ; 
10 AE 02000000 8F 00 00257 MOVL #33554432, 16(SP) : : 
10 AE 9F O25 PUSHAB 16(SP : | : 
67 05 FB 00 62 CALLS #5, SYSS$TRNLNM : 3 
06 30 E8 99 6 BLBS STATUS, 12$ ; | : 
0344 C3 B4 00268 CLRW §MAIL$Q’SYSNODE 3 1126 | ; 
41 11 0026C BRB 17$ : ; 
SFOS 65 91 00 6 12$:  CMPB §-SYSNODEBUF, #95 : 1128 | : 
0 le 0027 BNEQ 13$ : : 
344 C3 B7 00274 DECW  MAIL$Q_SYSNODE : 1130 : 
348 C¢€3 D6 00278 INCL §MAILS$SQ7SYSNODE+4 : 1131) : 
3 D4 OO27C 138: CLRL J > 1133 | 3 
50 0348 ¢ b0 0 43 14$: MOVL MAILS SYSNODE+4, RO > 1135 : 
60 0344 (3 A 3A 0028 LOCC #58, MAIL$Q_SYSNODE, (RO) > 1134 : 
2 12 00289 BNEQ 15$ 3 3 
51 D4 0 8B CLRL sR ; : 
51 3 gb 15$: TSTL R1 s 1135 | ; 
04 13 0028F BEQL 16% : : 
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; 1087 1215 1 
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| 1 | 
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/v04-001 1er8een 1386 12:23:98 DISKSVMGMASTERSCMAIL SREIMAIL.832;2 29 18) 
07 13 00 BEQL 24$ : 
| 50 FF10 C4 9 0 i MOVAB TMPFILE_FAO_CDESC, RO : 
| 50 FFS4 C4 9E 0037 348 MOVAB TMPFILE_FAO_DESC, RO ; 
| 0 DD 0037C 25$ PUSHL : 

69 04 FB 0037E CALLS #4, SYS$FAO : | 

| 3¢ ag OF 1 PUSHAB DESC : 1191) 
016¢ 4«6¢5S) (OOF 4 PUSHAB TMPF LL ESC : 
6A ge FB 8 CALLS STRSCOPY. DX ; 

3c FF «68F 9A 00388 MOVZBL ; DES + 1192 

40 AE 14 a3 DO 00390 OVL  MAIL$GL_BIGBUFFER, DESC+4 + 1193 

| 24 =A pd 00395 PUSHL MAILSL_AYPID + 1196 

40 AE 9F 00398 PUSHAB DESC + 1194 
44 AE 9F 00398 PUSHAB DESC : 
26 «OA 83 00395 TSTW MAILSL_MYPID+2 : 
07 13 O03A1 BEQL ; 

50 FF34 C4 9E OO3A3 MOVAB TMPFILE1_FAO_CDESC, RO : | 
05 11 0038 BRB ; 

50 FF78 C4 9E QO3AA 26$:  MOVAB TMPFILE1_FAO_DESC, RO : 
50 DD OO3AF 27$:  PUSHL RO ; 
69 04 FB 00381 CALLS #4, SYSS$FAO ; 

3C = AE sOOF: «00384 PUSHAB D + 1197 
0174 C5 9F 00387 PUSHAB TMPFILE1 DESC ; 
6A 02 FB 003BB CALLS #2, STRSTOPY ; 

08 63 01 €1 O03BE BBC #1, MAILSGL ‘FLAGS, 28$ + 1201 

00000000v 00 00 FB 003C2 CALLS #0. NETJ + 1202 
04 003C9 RET : 

014C CS 9F OO3CA 28%: | PUSHAB EXIT_BLOCK > 1206 
600000006 00 01 FB OO3CE CALLS #1, OOS CLEXH : 

FB53—sCF 00 FB 00305 CALLS #0, MAIL_DISPATCH > 1212 

04 OO3DA RET > 1214 

0000 00308 29%: -WORD Save nothing : 1015 
7E 04 003DD CLRL 0s = (SP) ; 
SE DD OO030F PUSHL SP : 
7E 04 AC 7D 003E1 Ova 4 (AP), -(SP) ; 
000000006 00 03 FB OO3ES CALLS #3, MAILSHANDLE ; 

04 O03EC RET : 
| 
| 
| 


<=z 
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_ v04-001 14-Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 (19) | 
; 1089 1 i$ 1 ROUTINE CLI_COMMAND = 
: 1090 121 1 l+¢ 
3 4 : 18 : : FUNCTIONAL DESCRIPTION: | 
; 109 1220 1! Callback the CLI for the rest of the command parameters and send 
; Ie : 1 : ; the specified file to the specified users. Then return to the CLI. 
. * | 
; 1096 1 ‘ 1 ! INPUTS: 
: 1097 1226 1! 
; 1s ? : INPUT_DESC = CLI request descriptor for input filespec. | 
i; 1100 ee? 1! OUTPUTS: 
3 1101 1226 1! 
3 1108 1¢¢9 7} Input file sent to specified users. 
; 110 1220 1 !-- 
3: 1104 \$3) BEGIN 
: 1105 1 3 
: 1106 123 OWN 
; By te EXITVALUE : $BBLOCKL4] INITIAL(1); | 
: 1109 1236 : ROUTINE HANDLER (SIGARGS,MECHARGS) = | 
: 1110 1237 BEGIN 
3 1111 1238 3 
: HE 1239 3 sigargs : REF $BBLOCK, 
3111 1240 3 mechargs : REF $BBLOCK; | 
3.1116 1241 3 
3 1115 1st6 3 BIND . 
; bY 1sez ; signame = sigargs Cchf$l_sig_name] : $BBLOCK; !Name of signal 
3; 1118 1245 3 IF NOT .signame ‘If its an error signal 
3: 1119 1246 5 AND ((.signame Csts$v_severity] ! and severity is worse than it was 
: 1120 1247 5§ GEQU .exitvalue LStsSv sever tty3) | 
3 1121 1248 4 OR .exitvalue Csts$v_severity]) ! or we haven't had any errors 
; 1156 1$¢) ; THEN exitvalue = .signame; ! then remember it for exiting 
3; 1126 1251 3 RETURN SS$_RESIGNAL 
3: 1125 1252 2 END; 
.PSECT SOWNS,NOEXE,2 | 
00000001 00320 EXITVALUE: 
«LONG 1 $ 
| 
-PSECT S$CODE$,NOWRT,2 
0004 00000 HANDLER:.WORD Save R2 ; 1236 | 
52 00000000" 00 9€ BR ORs rey EXITVALUE, R2 ; 
51 04 AC 04 ¢€1 0000 ADDL #4, SIGARGS, R1 : 1243 
ie 3} E8 00 oF BLBS (RI), 2 : \st3 
50 62 0 0 EF 0001 EXTZV 49, is, EXITVALUE, RO > 1247 
50 61 03 8 £D 0016 CMPZ7V) «#0, #35, (RI), RO : 
2 E 00018 BGEQU : 
03 0 €9 0001D BLBC RO, 2$ : 
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1 

18-Sep-19 4 01:01: VAX-11 Bliss-32 V4.0-742 Page 55. 
v04-001 1278 08- 1 3be 03:05:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.832;2 . (19) 
; 1176 1303 THEN BEGIN 
; 1177 1304 TMP_RABCRAB$V_BIO) = TRUE; 
> 1178 1305 MAICS$G_CNCT tact -BFILRAT) = - TMP _FABEF ABSB_RAT ; 
; 1179 1 06 MAILSG_CNCTCCNCT_B_FILRFM] = .TMP-FABLFABSB_RFMJ; 
: 118) 1308 — 
; 1186 P : 15 If FRRCSRETURN, c STATUS) RAB, ERR=UTILSREPORT_IO_ERROR);, 
; 1184 1 TMP_RABCRABSL_CTX] = MAIL$_READERR; 
3 BY P : 18 IF LERR(SMGSCREATE TURN SIGNAL STATUS)” SMG_KEYBOARD,SYSIN_DESC);, 
; 1188 P 1315 IF LERR(SMGSCREATE_KEY_ TABLE (MAILSL_SMG KEYTABLE);:, 
: 1189 1316 RETURN SIGNAL(.STATUS)S; 
; 1190 1ai2 
: 1191 1318 i Get qualifiers 
: 1138 1319 i 
3 119 1330 CL ire VALUE (SD_SUBJECT ,MAIL$Q_SUBJ); 
: 1194 131 SELF_FLAG = CLISPRESENT (SD_SELFY; 
: 1196 1358 ' Get the user names to send to 
: 1197 1324 i 
; 1198 1352 WHILE CLISGET VALUE (SD_TOLIST,DYN_DESC) 
; 1199 1326 DO BEGIN 
; 1200 1327 IF ot Se TOCDSC$W_LENGTH] NEQ 0 
; 1201 1328 THEN STRSAPPENDTMAIL$Q_T0,COMMA DESC); 
; 1208 1399 STRSAPPEND (MAIL$Q_TO,DYN_DESC); 
; 120 1330 2 END; 
: 3 13¢) ¢ ca. maiLsa -TOCDSC$W_LENGTH] EQL 0 ! If no users, prompt 
: 1206 1338 4 iP ath (STATUS = MAILSGET_INPUT(MAIL$Q_TO,MAILSGETMSG(MAIL$_1ISUB20))) 
: 1207 1334 3 THEN RETURN .STATUS; 
F 1208 1335 a MAILSUPCASE _Q(MAILSC_ 103 ; 
: 1210 1337 IF ( smaitse USRSYSBUFCVMD_V_SELFSEND] OR .SELF_FLAG) 
3 igi} 1338 (SELF FLAG NEQ CLI$_NEGATED) AND (.SELF FLAG NEQ CLI$_LOCNEG)) 
3 1215 1340 be N TRSAPPEND(MAIL$O_ TO,COMMA_D 
3 1214 1341 EIRSAPPEND CHALLIS TO.MAIL$O OES ERWAME) ; 
3 1215 1306 
3: 1216 134 
: iste of: i i add the usernames to the addressee List and send the file to them. 
; 1219 1366 RAILSINI ADDR(MAIL$G_CNCT); ! Init addressee List 
3 1220 134 MAILSDELETELINK(RAILSG, CNCTCONCT_Q_LNKLSTI); 
: 1221 1348 Malt eee haf UNODES(); 'Create cluster node List 
4 1ss¢ 1349 = “CHECK SEND ND ¢ 
: 122 1350 LSADD -ADDR(MAIL$Q_TO,MAIL$G_CNCT)); ! Add the addresses 
: 1sse 1351 IF NOT a 
: 1225 1326 THEN RETURN ~EXITVALUE; 
: 1556 135 
3: 1227 1354 Send end of users and to-list 
; i 8 1355 i 
: 1s 9 1328 MAILSNET_ END_USERS(MAIL$G_CNCT); 
; 1231 1358 i if the input file is SYSSINPUT or it's TRM (assume TT:), then copy it 
3; 1232 1359 ' to a temporary file 


nN ee 


4 1 
" LSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01 VAX=-11 Bliss-32 V4.0-742 e 56) 
v yoLtoo 1 aa 1 9} 4 98 DISKSVMSMASTER: CMAIL.SRCJMAIL.B32;2 site (19) | 
: 1233 1360 
: 1234 1361 ir .TT_INPUT 
t 1235 1 6¢ THEN BEGIN | 
; $ 63 SCLOSE (FAB=TMP_FAB) ; 
: 2 69 Open TMP_FAB to a temporary file | 
: 1 40 P ¢ $FAB INIT CFAB=TMP _FAB, 
: 1 4¢ P 1 69 FNS. TMP ILE _DESCLDSC$W_LENGTH] 
> 124 P 1370 ENA=  TMPE ILE DESCLDSCSA “POINTERS, | 
Seat PURE RENT 
> 1246 P 1278 RARCTAE A 
: 1828 P 1378 RATZCR | 
: 1249 1376 FAC=(GET,PUT,BRO)); | 
: 1584 p 1378 SNAM_INIT(NAM=TMP_NAM, 
; 1252 P 1379 RSA=TMP_ESNAM~BUF , 
: $82 P1381 3 EeAsTAP ESMAN BUF, | 
: 1255 138 ; ESS=NAMSC_MAXRSS); 
He tie ews. 
1389 B18 § | CIERAICS.Oewour, | 
; 1261 1388 3 USZ=MAICS$K_INBUFFSZ); 
: 1508 P1390 3 IF _ERR(SCREATE (FAB=TMP_FAB,ERR=UTILSREPORT_10_ERROR);, | 
: 1264 1391 3 RETURN .STATUS); 
: 1266 p 1398 3 IF -ERR(SCONNECT (RAB= TMP RAB LER ZERR= UTILSREPORT_IO_ERROR);, | 
; 1268 1395 3 RETURN PATUSy, " 
: 1er9 1330 ; If input is from terminal, assign a channel to it to enable CTRL/C AST's 
: 1372 1399 ; if -MAILSGL FLAGSCMAIF_V_ITERM) 
> 127 1400 SASSIGN( CHANCRATLSU. TTCHAN, DEVNAM=MAIL$Q_INPTRAN) ; 
> 127% 1401 § MAIL SENABLE CTRL C(O, | | 
: 1275 1402 SMGSDELETE VIRTUAL KEYBOARD(MAILS$L_SMG_KEYBOARD); ‘Delete any previous 
: 1276 P 1403 3 IF_ERR(SMGSCREATE VIRTUAL KEYBOARD CMAICSL_SMG_ KEYBOARD INPUT DESC): 
: 1277 1404 SIGNAL (. STATU 
: 1278 1405 4 IF NOT (STATUS = MAILSENTER(TMP_ RAB) ) 
> 1279 1406 ; THEN RETURN .STATUS; 
: 1280 1407 MAILSDISABLE_CTRLCQ): 
ati 8 tame | 
: i288 1410 Send the message | 
> 1285 141¢ MAILSSEND_ADDR(MAIL$G_CNCT); 
: 1286 141 RETURN .ERITVALUE ' Return the status 
+ 1287 1414 D; 
| 
es 


eS eee eee ee eee om 


OFFC 00000 CLI_COMMAND: 
. WORD 


| 

| 

: MAICSG | 
“EXTRN SYSSCREATED SYSSASSIGN | 

© R2,R3,R4,R5,R6,R7,R8.RI,R10,R11 1216 


yt 
ren VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01:06 — VAX=11 BLise=32 v4. 0-742 Page 57. 
i Sep-1984 12:42: DISKSVMSMASTER:CMAIL.SRCIMAIL.832;2 (19) 
| 
| 54 58 54 2€ 01026 P.AFH: .ASCII \.TXT\ oe 
NAMDVI= TMP_NAM+20 
$RMS_PTR= TMP~FAB 
$RMS-PTR= TMP~NAM 
| SRMS_PTR= MAIC$G_CNCT+646 
$RMS~PTR= TMP_FAB 
$RMS~PTR= 
SRMS_PTR= CNCT #646 


0 Sav : : 
5B 000000006 00 9€ 00002 MOVAB STRSAPPEND : ; 
5A 000000006 00 9E 00009 MOVAB UTILSREPORT. 10_ERROR, R10 : ; 
59 EFEA CF 9E 90010 MOVAB SYSIN DESC, “R97 : ; 
58 00000000" 00 9€ 0001 MOVAB MALL $0 TO, : ; 
57 00000000" 00 9€ 9001¢ MOVAB $RM PTR Rr : ; 
6D AD AF 9E 0002 MOVAB HAN NOCER (FP + 1265 ; 

0050 =F 00 6E 09 2¢ 00 t movcS #0, OceeS, "0. #80, $RMS_PTR + 1279 ; 
67 5003 8F BO 0002F MOVW #20483, SRMS_PTR : ; 
04 AZ 40 8F 9A 00034 MOVZBL #64, $RMS_PTR+4 : ; 
14 A? 04 BO 00039 MOVW = #4 sins <Pine2d ; ; 
16 AZ 42 8F 90 00030 MOVB #66 R+22 : ; 
18 AZ 007E109A B&F DO 00042 MOVL #8261786, ~$ans PTR+24 : ; 
1—E A? 0202 8F BO O004A MOVW #314 “nk mS _P TRE30 : ; 
28 «A? AO AZ i 00050 MOVAB TMP SRM MSP R+40 : ; 
¢ A? 90F8 C7 DO 00055 MOVL Ineo! “Pests, “én PTR+44 : ; 
0 a7 OFFE C9 9E 0005B MOVAB P.AFH> : ; 
34 OA? 00OF4 C7 90 00061 MOVB —sINPUT bese “SAEs _PTR+52 : : 
35 a7 04 90 00067 MOVE #4, $RMS_PTR+ ; ; 
0060 8F 00 6E if 00 2c 00068 MOVCS #0. (SP)> #0, #96, $RMS_PTR : 1285 | ; 
AO A? 6002 8F BO 00074 MOVW 424578. RNs PTR : 
A2 AZ 01 BE B007A MNEGB “i. SRMS_PTRF ; 
AS A? FE2C C7 YE OO07E MOVAB SNAA BUF SRMS_PTR+4 3 
AA AT 01 BE 0084 MNEGB nee RMS _PTR+ ; 
AC A? FE2C C7 9E 00088 MOVAB TMP_E SNA BUF, SRMS_PTR+12 : 
0480 8F 6B 0008 PUSHR pemzny R10> : 1288 
000000006 00 92 FB 9009 CALLS #2 Ry SSOPEN ; 
65 5 E 60 BLBC STATUS : 
0044 8F 00 6£ 09 C 009¢ MOVCS #0, (SP), #0, #68, $RMS_PTR > 1294 | 
0276 ¢ OOA : 
0276 «¢8 4401 8F BO OO0A6 MOVW #17409, $RMS PTR ; 
028E C8 007E 109A BF D OOAD MOVL #8261786, sRAs sPIR+24 : | 
0296 =¢ 0 F BO 00086 MOVs $RM ; | 
029A C8 ag E 0008 MOVAB ap by FF, Mai y PTR+36 : 
02B2 ¢ $ 9E 000C MOVAB TAP FAB, S$RMS_PTR+60 ; 
| 4 D4 000C CLRL oT uf : 1296 
15 40 A? 02 £0 OO0CA BBS #2 TMP FAB+64, 1$ > 1297 | 
14 D6 AY ED OO0CE BLBC TAB_NAMT5¢~ > 1298 | 
31 04 Ad be 9b3 MOVL SYSIN DESC4+4, R1 + 1299 | 
0 B4 AZ OA 900 MOVZBL NAMDVT, R : 1300 | 
| 50 00 61 ie 69 2D 0008 CMPC SYSIN. DESC, (R13, #0, RO, NAMDVI+1 : 


ts a ss 9) SS SS SS SS SS “-“ — —) SS) 2s > — - 9 a a 4) 2 > > ss os 9 9 SH —* 
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MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32_V4.0-742 Page 58 
v04-001 14-Sep-1984 9:23:58 DISKSVMSMASTER:CMAIL-SRCIMAIL.B32;2 (19). v04 
3 12 000E2 BNEQ 2$ : | : 
54 1 DO OO0ES 13: MOVL #1, TT INPUT > 1301. : 
A 4 ; 0 E7 2$: BLBS_ —-‘TT_INPOT, 3$ : 1302. : 
0278 C8 : OEA BISB2 #8, TMP_RAB+S > 1304. : 
70 A 1E A? BO OOOEF MOVW  TMP_FAB?30, MAILS$G_CNCT+128 : 1305. : 
SA DD at 3$: PUSHL R10 ; 1310. : 
0276 OF OO0F6 PUSHAB TMP_RAB : : 
000000006 00 FB OOFA CALLS #2, SYSSCONNECT : : 
01 FB 0101 4$ BLBS STATUS, 5$ ; 
028E C8 007E10B0 8F D0 00105 Ss: MOVL #8261808, TMP_RAB+24 > 1311 
59 pp 9019 PUSHL R9 : 1314, 
80 A8 9F 0011 PUSHAB MAILSL_SMG_KEYBOARD : 
000000006 00 9¢ FB 0011 CALLS #2, SMGSCREATE_VIRTUAL_KEYBOARD 3 
0D 5 EY OO11A BLBC STATUS, 6$ : 
84 AB 9F 0011D PUSHAB MAILSL_SMG_KEYTABLE > 1316 
000000006 00 9 FB 001 9 CALLS #1, SMGSCREATE_KEY_TABLE 3 
OA 0 €8 001 BL8S STATUS, 7$ : | 
50 DD 0012A 6$: PUSHL STAT 5 
000000006 00 01 FB 001¢¢ CALLS #1, LIBSSIGNAL ; | 
04 00133 RET ; | 
08 Ag OF 00134 7$: PUSHAB MAIL$Q_SUBJ : 1320 
01D4 C9 9F 00137 PUSHAB SUBJECT ; 
000000006 00 02 FB 0013B CALLS #2, CLISGET_VALUE ; : R 
0184 C9 9F 00142 PUSHAB SD_SELF : 1321) 
000000006 00 01 FB 00146 CALLS #1, CLISPRESENT ; | 
52 50 DO 0014D MOVL RO, SELF_FLAG ; | 7] 
00E4 C7 9F 00150 8S: PUSHAB DYN_DESC : 1325, 31 
O1FC C9 9F 00154 PUSHAB SD_TOLIST : | 31 
000000006 00 02 FB 00158 CALLS #27 CLISGET_VALUE ; i] 
17 50 £9 0015F BLBC ; | 37 
68 B5 00162 TSTW  MAIL$Q_TO : 1327) 71 
08 13 00164 BEQL ; 2] 
EO AQ 9F 00166 PUSHAB COMMA_DESC ; 1328 : 7 
58 DD 00169 PUSHL : | : 1 
68 02 FB 00168 CALLS #2, STRSAPPEND : | 71 
00E4 C7? OF 00166 9$ PUSHAB DYN_DESC > 1329) 31 
58 DD 0017 PUSHL R ; | : 3 
68 02 FB 00174 CALLS #2, STRSAPPEND ; 71 
0? 11 00177 BRB > 1325) 31 
68 B85 00179 10$:  TSTW  MAIL$Q_TO > 1331 | 33 
2A 12 00178 BNEQ 12$ : | 31 
OO7EDDFO «= BF ODD 90170 PUSHL #8214352 ; 1333 37 
000000006 00 gi 8 901 CALLS #1, MAILSGETMSG ; | 31 
0 DD 001 PUSHL RO ; | 31 
58 DD 0018C PUSHL RS ; | 31 
000000006 00 08 FB 001 8¢ CALLS #2, MAILSGET_INPUT : | 31 
56 50 D0 0019 MOVL RO, STATUS ; 31 
03 56 &8 0198 BLBS STATUS, 11$ ; | 31 
0198 1 00198 BRW 21$ ; | 31 
58 DD O19 11$: PUSHL = RB > 1335. 31 
000000006 00 01 FB O1A CALLS #1, MAILSUPCASE_Q ; | 31 
30 000000006 00 DO OO1A7 128:  MOVL MAILSL_USRSYSBUF, RO > 1337) 31 
0 1F AQ E8 OO1A BLBS 31(RO)> ; | 31 
ge 52 £9 001B BLBC  SELF_FLAG, 14$ ; | 31 
000000006 8F 52 D1 00185 13$:  CMPL = SELFTFLAG. #CLIS$_NEGATED > 1338 31 
19 13 001BC BEQL «=s-«14 ; | 31 
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STRSAPPEND 
AIL$Q_USERNAME 


ge 8 


L$G_CN 
#1, MATLSINI_ADDR 
MAIL$G_CNCT+28 
#1, MATLSDELETELINK 
#0, MAILSGET_CLUNODES 
MAILSG_CNCT 


#2, MAILSADD_ADDR 
#1, CHECK_SEND 
RO, STATUS 
STATUS, 15$ 

24$ 

MAIL$G_CNC 


G_CNCT 
#1, MATLSNET_END_USERS 
TT eINPUT, 16 


R7 

#1, SYSSCLOSE 

#0, (SP), #0, #80, SRMS_PTR 
#20483, $RMS PTR 


RMS 

P_NAM, SRMS_PTR+40 
TMPFILE_DESC+%, SRMS_PTR+44 
TMPFILE-DESC, $RMS_PTR+52 
#0, (SPY, #0, #96, $RMS_PTR 


SRMS_PTR+4 


+ 
TMP_ESNAM_BUF, $RMS_PTR+12 
#0, (SP),~#0, #68, SRMS_PTR 


#17409, SRMS PTR 
#8261794, sRAS PTR+24 


R10 
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MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 60 MA] 
v04-001 1a-Sep- 198e 12:42 3:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 ’ 18 v04 
0276 9F 002C PUSHAB TMP_RAB : 
000000006 99 F 0 c3 CALLS #2, SYSS$CONNECT : 
2 D CE MOVL R : 
3 E8 00201 BLBS STATUS, 18$ : 
DD 00204 PUSHL R : 
000000006 90 O1 FB 0206 CALLS #1, SYSS$CLOSE : 
0 2 pO 0 bp mOVL STATUS, R : 
OF FF78 CB 92 gi 02E1 18%: BBC #2, MAILSGL_FLAGS, 198 + 1399 
E fc O0ee? CLRO (§P) ; 1400) 
E6 AB 9F O02E9 PUSHAB MAIL SW. TTCHAN : | 
CO AB OF 0 EC PUSHAB MAIL$Q~INPTRAN : | 
000000006 00 04 FB OOZEF CALLS #4, SYSSASSIGN : 
EF4C CF 00 FB O02F6 19S: CALLS #0, MAILSENABLE_CTRLC + 1401 
80 AB 9F OO2FB PUSHAB mAILSt SMG_KEYBOARD + 1402 
000000006 00 01 FB 00 FE CALLS SMGSDECETE_VIRTUAL_KEYBOARD : 
00OF4 C7 9F 0030 BUSHAB INBUT Desc 1406 | 
80 AB 9F 00309 PUSHAB pallet SMG_K : 
00000000G 00 9 4] 030¢ CALLS SmMGS$ Me eKe re SUIRTUAL KEYBOARD : 
09 EB 00313 Stes. STATUS. 50S : | 
50 DD 00316 PUSHL STATUS : 
000000006 00 01 FB 90318 CALLS LIBSSIGNAL ; 
0276 C8 9F OO31F 20$:  PUSHAB : 1405) 
000000006 00 01 FB 00323 CALLS #1, “MAILSENTER : 
56 50 DO 0032A MOVL RO, STATUS : 
04 56 «EB 903¢0 BLBS STATUS, 22$ : 
50 56 DO 00330 21$ MOVL STATUS, RO > 1406. 
04 00333 RET ; 
EEE] CF 00 FB 00334 228: CALLS £0, MAILSDISABLE_CTRLC : 1407) 
FO AS OF 00339 23$: PUSHAB MAIL NCT + 1412 
000000006 00 01 FB 0033C CALLS MATLSSEND _ADDR ; 
50 OOFC C7 dO 00343 248: MOVL EXITWALUE® RO™ + 1413 
04 00348 RET > 1414 


; Routine Size: 841 bytes, Routine Base: $CODE$ + 102A 


a eo oo oe ee ee ee ee LL eee 


’ 


2 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1h-sép-1984 01:01: VAX-11 BLiss-32 
v04-001 1en8e8-13be 93:23:88 PS UmemAgtER 


V4.0-742 
:CMAIL.SRC 


Pa 1 
IMAIL.832;2 99° (26). 


89 ROUTINE NETJOB = 

90 

91 lee 

; FUNCTIONAL DESCRIPTION: 

94 i If this is a network job, it doesn't process commands, rather it 

95 is just a slave to send mail to some addressees that are at a different 

96 network node than the sender. This routine reads the sender's and 

97 addressee's names from the master mail job and sends the mai! to 

a8 the addressees. It then just exits. 


MAILSQ_INPTRAN = SYSSNET Logical name translation. 


R 


! OUTPUTS: 
| 


“ 


! 
! 
! 
! 
1 
' 
INPUTS: 
' 
1 
1 
! 
! 


& 


Mail message sent to specified addressee's. 


oo oO 


DESC: DYN_DESC_DECL; ‘dynamic descriptor 
BUILTIN 
FP 


LOCAL 
ay : REF VECTORC, BYTEJ, ! String pointer 


UNT, 
PURGE _VEC : VECTOR(C2,LONGI, 
FORWARD_ERROR, ! Set if forwarding loop error 
STATUS; ! Status value 


BEEBE EEE EPA NNN PINIPININIPUNIN SO 


SO OD NOUN EWN @ODO NAME WN ODD NAURBWN OOO NAUN EWN ODO NAOUEWNODDNIOU 


Mrorrnr 


.FP = IGNORE SIGNALS; ot there, jyet ignore it 


; ‘If n 
IF NOT CLISGET VALUE ( ROTOCOL ,MAIL$Q_PROTOCO 


SD_P | 
; THEN STREFREE1_DX(MAIL$Q_PROTOCOL); 


IAPOTOROROTD kd ed ed od oOo 


i Get sender's name 


ee a ee el ee ee ee ek ed a ed 
LA AAAI AAAI AINA AANA AAA AAAI 
WR =O ODOBNOUSWN “OC OONOULSWN—O0On 
eh ee aa ce ed ee ae ce ce ee ce et ee ed a eed ee ce ee ea ee ce a eh 8 ee ed ce co ee ee a ec eo ee ee et ele el ee ee el ee ee ec cl eel el eed 
ye oe oP oe ae at ot at nt et tet et ee eh tt et te 
a oe eo a ee ee ee ee ed ed en ca ee ce ce ee ce ced ee ed eae ed ed ee ee ee ee ce ce ee ee ed eee ee ee ce ee ce de ed 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
; 
; 
g 
§ Get value of /PROTOCOL qualifier in case inbound foreign net 
2 
: 


Be Be Be Oe Be Be Be B. ee Oe Be Ge Se Fe Se Be Ge Se Se Se SH He FH Se Se Ge Se Se Be Se Se Se Se ee Se Se Se Se Se Se Se Ge Oe Ge Se Se Se Ge Oe Be SHS Se Se Se we 


5 
5 
5 
5 
5 
2 

3 5 INIT_DDESC(MAIL$Q_USERNAME) ; ' Create dynamic descriptor 

: é MAILSGL_FLAGSCMAIF_V_SERVERLOOP) = 1; ' Loop by default 

$e ° Begin looping. Will exit loop when master disconnects the Link. 

36 6 WHILE TRUE 

37 6 DO BEGIN 

38 é MAIL$G_CNCTCCNCT_B_FILRAT) = FABSM_CR; 

39 6 MAIL$G-CNCTCCNCT-B-FILRFM) = FABSC_VAR; Boye: 
340 6 MAILSIRI_ADDR(MATLSG _CNCT); ! Initialize the List 
341 6 MAILSDELETELINK (MAILSG_CNCTCCNCT_Q_LNKLST)); 

38 5 : This first call will also create the logical Link 
345 7 iF ERR(MAILSGET_INPUT(MAIL$Q_USERNAME ,LNK_C_IN_SENDER) ; ,RETURN TRUE); 
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5 134 1472 ' :1 
3 } ff \el7 } Prevent an accvio, Later will check for null username 
3; 1349 1475 IF .MAIL$Q_USERNAMECDSCS$W_LENGTH] E 
: ! 29 1676 , THEN MAIL$Q_USERNAMECBSCS$A_ POINTER = MAIL$Q_USERNAME ; 
: 1 2g 1478 ! Check to see if we have been at this node before. If so, signal 
s \e03 1479 ! the error and return. Note the check is done before the sender 
: : rs 1481 node is put on to allow STAR::ME to send to STAR::YOU 
3; 1356 14 ¢ FORWARD ERROR = 0; 
> 1357 148 COUNT = cMALLSQ USERNAMECDSCS$W_LENGTH); 
3 1358 1484 PTR = .MAIL$Q_USERNAMECDSCSA_POINTERI; 
3; 1359 1485 if .MAILSQ_ SYSNODE CDS C$u_ LENGTH] NEQ 0 'Should not happen, but... 
; 1360 1486 THEN INCRUI FROM 1 TO 107 
: 1361 1487 4 DO BEGIN 
3 1306 1488 4 IF sinned * = CHSFIND_SUB(.COUNT,.P 
: 136 1489 4 1L$Q *SYSNODE Egtp DSCS$W_LEN 
: 1364 1490 4 “RALLSO- “SYSNODE2LDSC$A_POI ENT 
3; 1365 1491 4 THEN EXITLOOP 
3: 1366 1038 5 ELSE BEGIN 
: 1367 149 7 IF ((.PTR NEQ .MAIL$Q -USERN NAMECDSCSA_POINTER]) 
3; 1368 1494 6 AND (.PTRE-1) NEQ™%C':")) 
3; 1369 1495 5 THEN EXITLOOP; 
: 1370 1496 5 PTR = .PTR + -MAIL$Q SYSNODE2CDSC$W_LENGIH); 
3 1371 1497 5 COUNT = .COUNT - MATES _SYSNODE2CDSC$W_LENGTH); 
3: 1372 1498 5§ IF .I EQL 10 
: 1373 1499 5 THEN FORWARD_ERROR = 1; 
3; 1374 1500 4 END; 
3: 1375 1501 3 END; 
3: 1376 1502 3! 
: 1377 1503 3 | Add sender's username to the node name, creating a full sender's name 
$ 1378 1208 ; : unless the sender's node name and our node are the same node 
: 1300 1208 ? a -MAIL$Q_USERNAMECDSC$W_LENGTH] NEQ 0 THEN 
3 
3; 1382 1508 4 IF NOT CHSFAIL(PTR = CHSFIND_CH(. whit INPTRANCDSC$W_LENGTH],! Find end of node name 
: 1383 1509 4 iL $0_ INPTRANCDSCSA_ POINTER], 
3: 1384 1510 4 
3; 1385 1511 5 THEN BEGIN 
3: 1386 1216 5 MAIL$Q_INPTRANCDSC$W_ LENGTH] = .PTR+2-.MAIL$Q_INPTRANCDSCSA_POINTER); 
3; 1387 151 5 IF CHS SFAIL (CHSFIND_ S0B(.MAIL$Q USERNAME CDSCS$W~ LENGTH], 
; 1388 1514 5 .MAIL$O_USERNAMECDSCS$A_POINTER), 
3; 1389 1515 2 -MAIL$Q_SYSNODE2CDSC$W_LENGTHJ 
3 1390 1516 SNODEOLDSCSA~POINTER)) ) 
: 139) 13te ? THEN STRSCONCAT (MAIL$Q _USERNAME > *MAIL$Q _INPTRAN,MAILS$SQ_ USERNAME) ; 
: 1398 1519 END; 
3 1394 1520 ! ; 
; 1332 136! , Also fill im MAILS$Q_FULLUSER for NOTIFY 
3 f+ 44 3 § STRSCOPY_DX(MAIL$Q_FULLUSER ,MAIL$Q_USERNAME) ; 
: F444 3 5 } Get the addressee names and enter them in addressee List 
: 1401 15 5 WHILE 1 DO 
: 1402 1528 4 BEGIN 
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S Fea ee They eee etMK6 IN CRUSER) ! Get addressee name 
IF ,DESCLDSCSW_LENGTH] EQL 0 ! Check for O-Length name 
SIGNAL (MAIL$_USERSPEC,1,DESC); ' Signal the error 
EXITLOOP; 


ND; 
IF CHSRCHAR( ..DESCCDSCSA_POINTER]) EQL 0 ! If null name, 
THEN ' Then all done 
EXITLOOP; 


If we detected a forwarding error, then send the 
status back. Otherwise add the addressee to the List 
F .FORWARD_ERROR 
THEN BEGIN 
STATUS = MAIL$_FORWLOOP; 
SIGNAL(.STATUS,1,DESC); 


END 
E STATUS = MAILSADD_ADDR(DESC,MAIL$G_CNCT);! Add addressee to List 
TUS ! If success, 


SIGNAL(. STATUS); ! Signal the success 


L 
T 


rw 


' Send the end-of-users flag and the to-list to any remote nodes 


handling going on here. If the master mail job decides not to send, 
the logical Link will be broken and one or the other of the following 
MAILSGET_INPUT calls will fail, causing this job to exit. 
IF _ERR( MAILSGET INPUT (MAIL$Q_TO,LNK_C_IN_TO);, 
MAILSNET_END_USERS(MAIL$G_CNCT); 
F_ERR( MAILSGET_INPUT(MAIL$Q_SUBJ,iNK_C_IN_SUBJ);, 
RETURN TRUE); 
F .MAIL$Q_ SUBJCDSC$W_LENGTH] NEQ 0 
HEN IF CHSFAIL(CHSFIRD_NOT_CH(.MAIL$Q_ SUBJCDSC$W_LE 
-MATL$Q_SUBJCDSC$A_POINTER] 
, THEN STRSFREE1_DX(MAIL$Q_SUBJ); 
; Create a temporary file to store the message text 
$FAB_INIT(FAB=TMP_FAB, 
NAM=TMP . 
DNM="MATL.TXT', 


DEQ=3, 
CTX=MAIL$_OPENOUT, 
RAT = CR 


' 
i 
! 
i 
Get the To: and Subj: lists. There is a bit of ‘‘behind the back'’ error 
i 
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(GET ,PUT,BRO)); 

IF .MAIL$G_CNCTCCNCT_V_BLKMODE] !Did sender say block mode? 
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hai 'Get gut attributes 
MJ; ! and forma 
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SRAB_ sary Cheaetre RAB, 
FAB=TMP_F 
ETe=MAICS OPENOUT, 
UBF=TMP_BOFF, 
UST=MAICSK. INBUFFSZ): 
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IF .MAIL$G_CNCTCCNCT_V_BLKMODEJ 'If block mode, set bio in rab 
THEN TAP_RABCRABSV_B10) = TRUE; 
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3 IF re CNCTCCNCT L 
; mi ERR(SCONN 
3 
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‘tMP_RABCRABSL_ CTX): 
= ,TMP_RABCRABSC_STSJ; 
= | TMPTRABLRABSL~STVJ); 


vuvv 


EC 

MAICS$SG_CNCTCCNC 
MAIL$G_CNCTCCNC 
MAIL$G_CNCTCCNCT_L 

pr. RABCRABSL_CTX] = MAILS. WRITEERR; 

Get the message text and store in the temporary file 


MAILS$G_ CHCTEENCT L_NRECS) = 0; 
IF NOT .MAILSGL_FLAGSCMAIF_V -ALTP 
THEN BEGIN 
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Shrink tg set while parties for the first record. Usually 
' this takes ong time (while the person at the other end enters 


: the message). 
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7 
8 
9 
504 0 
505 1 PURG oie 7FFFFFFF’: 
506 : SPURGOS (INADR=PURGE VEC 
507 ATUS = MAILSGET IRPUT(DESC): ' Get first record 
508 4 UNTIL ((. DESCCDSC$W_LENGTH) eat AND ' Check for terminator 
509 5 (CHSRCHAR(. DESCEDSCSA. POINTER 3) EQL 0)) i record 
510 6 OR NOT .STATUS 
511 7 DO BEGI 
31 B TMP_RABCRAB$W_RSZ) = -DESCEDSC$W_LENGTH] 
51 9 TMP~RABLRABSL— BFA = DESC DSCSA-POINTER); 
514 0 IF TMAIL$G_CNUTCCNCT_L_FILERR 
515 1 THEN IF NOT CIE TTAP_RABCRABSV_BIO) ‘Use Swrite if block io 
516 642 THEN SWRITE(RAB=TMP_RAB) 
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3; 1517 1643 6 ELSE SPUT(RAB=TMP_RAB))! Put record in file 
3; 1 18 1644 6 THEN BEGIN 
3; 151 1645 6 MAILSG_CNCTCCNCT_L_FILERR] = .TMP wr tert CTX); 
; 1520 1646 6 MAIL$G_CNCT CNCTILCEILESTS) = « THP RABE RAB C_s1Sd; 
: : 1 It 6 a ata ade CNCT_L_FILESTV] = .TMP_RABLRABSL_STVJ; 
3 18 g 1649 ; ELSE IF NOT .TMP_RABCRAB$V_BIO) 
; V2 : 1929 2 THEN MAILSG_CNCTCCNCT_C_NRECS) = .MAILSG_CNCTCCNCT_L_NRECS] + 1; 
; 18 6 1626 5 STATUS = MAILSGET_INPUT(DESC); ! Get next record 
: 1527 16535 4 END; 
; 1 8 1654 4 END 
; 7 1655 ELSE STATUS = eer raree FOREIGN_FILE(TMP_RAB) ; 
; 1 , 1606 TMP _RABCRABSL_CTX] = MATLS_READERR; 'Now we read 
3; 15 § 1658 ! If success, send the message. Errors writing the temp file will be 
3; 153 1659 ' reported once per addressee 
3: 1534 1660 ; : 
; 1535 1661 IF .STATUS 
3: 1536 1996 THEN MAILSSEND_ADDR(MAIL$G_CNCT) 
: 1332 1007 ELSE SIGNAL(.STATUS); 
; 1539 1665 IF NOT .MAILSGL_FLAGSCMAIF_V_SERVERLOOP) 
; 1540 1666 THEN EXITLOOP; 
3 1541 1667 
: 1542 1668 § END; ‘Looping until master disconnects 
3 1543 1669 RETURN TRUE 
3 1544 1670 1 END; 
54 58 54 2—€ 4C 49 41 4D 01373 P.AFI: .ASCII \MAIL.TXT\ 
-PSECT SOWNS,NOEXE,2 
00# 00324 DESC: -—BYTE OC2) 
02 OEF 00326 wYTe Me 2 
00328 -BLKB 4 
SRMS_PTR= TMP_FAB 
RMS_PTR= TMP~NAM 
SRMS_PTR= MAIC$G_CNCT+646 
-EXTRN SYSSPURGWS, SYSSWRITE 
eEXTRN SYS$PUT 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 NETJOB: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5E Oc C2 44 t4 SUBL2 # 
6D F025 CF 9E 0000 MOVAB IGNORE_SIGNALS, (FP) 
seat? fi 00 OF Bey PUSHAB MAIL$Q_ PROTOCOL 
EE31 CF 9F 00010 PUSHAB SD_PROTOCOL 
000000006 0 9¢ Fe 0014 CALLS #2, CLISGET_VALUE 
D 3 0018 LBS RO, 1$ 
00000000' 00 F OOO1E PUSHAB MA{L$Q_PROTOCOL 
000000006 00 1 FB ob5R CALLS #1, STRSFREE1_Dx 
6D D4 00028 1$ CLRL CFP) 


JMAIL.B32;2 
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00000000" 00 020E0000 8F DO MOVL  #34471936, MAIL$Q_USERNAME : 1457 
Mattdite 0 ba 0085 CLRL. MAIL$Q_USERNAME+4~ : | 
00000000' 4 8 ; BISB2 #4 MATLSGL FLAGS+2 > 14658 
09000000' 0202 c : 0045 2$: MOVW #514, MAIL$G_CNCT+128 + 1464 | 
00000000" 00 9F 0004E PUSHAB MAIL$G_CNCT + 1466 
000000006 1 FB 00054 CALLS #1, MAITLSINI_ADDR : 
00000000' 00 9F 00058 PUSHAB MAIL$G_CNCT+ + 1467) 
000000006 00 1 FB 00061 CALLS #1, MATLSDELETELINK : 
09 DD 00068 PUSHL #9 + 1471 
00000000" 00 9F O006A PUSHAB MAILS$Q_USERNAME : 
000000006 F 30070 CALLS #2, MATLSGET_INPUT ; 
0 : 007 BLBS TATUS, 3$ : 
04 7A BRW : 
00000000' 00 85 9070 3$ TSTW  MAILS$Q_USERNAME + 1475 
0B 12 0008 BNEQ 4$ : 
00000000' 00 00000000' 00 9E 00085 MOVAB MAIL$Q_USERNAME, MAIL$Q_USERNAME +4 + 1476 
6E Re B0039 4$: CLRL FORWARB_ERROR 3 1482 
57 00000000' 00 ¢ 009¢ MOVZWL MAIL$Q_OSERNAME, R7 + 1483 
58 57 DO 0009 MOVL R7, COONT : ; R 
56 00000000' 00 v0 9009¢ MOVL § MAIL$Q_USERNAME+4, R6 + 1484 
8 56 b0 000A MOVL 6, PT : 
54 00000000' 00 C 0006 MOVZWL MAIL$Q_SYSNODE2, R4 + 1485 
C 13 000AD BEQL : 
59 00000000' 00 DO O0OaAF MOVL § MAIL$Q_SYSNODE2+4, R9 + 1490 
55 01 DO 00086 MOVL , ; 
68 5B 69 54 39 000B9 5$: MATCH 4; (RO), COUNT, (PTR) Bea 
03 13 OO0BE BEQL 6$ ; 
53 54 pd 000C0 MOVL R4, R3 : | 
53 54 C2 000C3 6$ SUBL2 4, R3 ; | 
58 53 D0 000C6 MOVL 3, PTR : 
20 13 000C9 BEQL 9S ; | 
56 58 D1 000CB CMPL PTR, R6 + 1493 
06 13 OOOCE BEQL $ ; 
3A FF A8 91 00000 CMPB 3s = 1 (PTR), #58 + 1494 
15 if 000D4 BNEQ 9$ : 
Se 54 CO 00006 7$ ADDL2 = R4, > 1496 
5B 54 C2 00009 SUBL2 4. COUNT + 1497 
OA 55 D1 0000C CMPL i : 1498 
03 12 O00DF BNEQ § ; 
6E 01 DO 000E1 MOVL #1, FORWARD_ERROR + 1499 
55 D6 OOOE4S 8S INCL I + 1486 
OA 55 (D1 000E6 CMPL i #10 ; 
ce 1B 000E9 BLEQU 5$ : 
2 D Rees 9$: TSTL R7 : 1506 
3 1 ED BEQL 12$ ; 
52 00000000' 00 p0 OOOEF MOVL MAILSG INPTRAN+4, R2 > 1509 
62 00000000' 00 A 3A bO0F6 LOCC #58, MAIL$Q_INPTRAN, (R2) : 1508 | 
2 12 OOOFE BNEQ 10$ ; 
1 D& 00100 CLRL ORI : | 
58 1 00 00102 10$: MOVL 1, PTR ; 
1 1 BEQL 126 : 1510 | 
53 5 c3 001 SUBL3. Re, PIR, R3 ; 1812) 
00000000' 00 3 Ai 001 ADDW3 #2, R3, MAIL$Q_INPTRAN F | 
0 00000000' p 11 MOVL MAIL$Q°SYSNODE2+4, kO : 1516 | 
66 57 60 4 11A MATCHC R4, (RO), R7, (ROS : | 
5 i 11F QL 11§ F 
53 4 pd 00121 MOVL 4, R3 ; 
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53 54 C2 00126 118 SUBL2 R4, R3 : 
#3 13 b0197 BNEG = 12§ : | 
990000 ' 00 9F 00129 PUSHAS MAIL$Q_USERNAME + 1517. 
0000000' 00 9F 91 F PUSHAB MAIL$Q~INPTRAN : 
0000000' 9 9F 00135 PUSHAB MAILS$Q-USERNAME : 
000000006 00 FB 001 CALLS #3 STRSCONCAT : 
00000000' 00 9F 00142 128:  PUSHAB MAIL$Q_USERNAME + 1523) 
00000000' 09 9F 0014 PUSHAB MAIL$Q-FULLUSER : | 
000000006 00 FB O14E CALLS #2, STRSCOPY_DXx : 
OA DD O19 13$: PUSHL #10 + 1530 
00000000' 00 9F 00157 PUSHAB DESC ; 
G00000006 a9 08 FB 015D CALLS #2, MAILSGET_INPUT : 
7A E9 00164 LBC. ~—- STATUS, 18$ : 
00000000' 09 BS 00167 TSTW DESC + 1531 
17 12 0016D BNEQ 14$ : | 
00000000" 00 9F 0016F PUSHAB DESC : 1533) 
01 DD 00175 PUSHL #1 : 
007E8052 8F DD 00177 PUSHL #8290386 ; 
000000006 00 03 FB 0017D CALLS #3, LIBSSIGNAL : 
4C 11 00184 BRB : 1532) 
50 00000000" 00 DO 00186 14$:  MOVL  DESC+4, RO : 1536! 
60 95 0018D TSTB (RO) : 
41 13 0018F BEQL 17$ : 
1A 6— €9 00191 BLBC  FORWARD_ERROR, 15$ > 1543) 
5A OO7E808A 8F DO 00194 MOVL #8290442, STATUS : 1545) 
00000000' 00 9F 00198 PUSHAB DESC > 1546) 
01 DD 001A1 PUSHL ; | 
SA DD 001A3 PUSHL STATUS F | 
000000006 00 03 FB 001A5 CALLS #3, LIBSSIGNAL ; | 
16 11 OO1AC BRB + 1543) 
00000000" 00 9F OO1AE 15$ PUSHAB MAIL$G_CNCT > 1548 
00000000" 00 9F 001B4 PUSHAB DESC : 
000000006 00 02 FB OO1BA CALLS #2, MAILSADD_ADDR : 
SA 50 pO 001C1 MOVL RO, STATUS ; 
BE SA £9 00104 16$:  BLBC STATUS, 13$ + 1549 
5A DD 001C7 PUSHL STATUS > 1551 
000000006 900 01 FB 001C9 CALLS #1, LIBSSIGNAL : 
83 11 00100 BRB 13§ : 1527 
OB DD 001D2 178: PUSHL : 1563 
00000000' 00 9F 00104 PUSHAB MAIL$Q_TO ; 
000000006 09 98 FB 001A CALLS #2, MATLS$GET_INPUT ; 
1C 0161 18$:  BLBC STATUS, 19$ ; 
00000090" 00 9SF 001E4 PUSHAB MAIL$G_CNCT + 1564 
000000006 00 1 FB OO1EA CALLS #1, MATLSNET_END_USERS : 
C DD OO1F1 PUSHL #10 > 1567) 
00000000' 00 9F 001F3 PUSHAB MAIL$Q_SUBJ : 
000000006 00 : FB 001F9 CALLS #2, MATLS$GET_INPUT ; | 
03 0 00 19$ BLBS TATUS, 208 ; 
027F 31 0 BRW 3 
50 00000009' 99 3¢ 06 20$: MOV ZL MAIL$Q_SUBJ, RO : 1568 
51 00000000' p0 OF MOVL MAILSG SUBJ+4, R1 : te 
61 0 1 16 SKPC #32, 20, (R 3 1569 
1 1A BNEQ 218 ; 
D4 0021C CLRL ss RV. ; 
31 D3 0 If 21$ TSTL~— sR + 1570 | 
D 12 0022 BNEQ 22% F | 
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RM 
PTR+53 
#2, MAILSG cnet r 
MAIL$G_CNCT+128, TMP_FAB+30 
#0, (SP), #0, #96, SRMS_PTR 


liss- 
MASTE 


#24578, SRMS_PTR 
#1, SRMS_PTRF 


TMP_ESNAM 
#1,~$RMS_PT 
TMP_ESNAM_BUF, SRMS_PTR+12 


R 
BUF, $RMS_PTR+4 
+ 


4 “MAILSG_CNCT+72 
#1, SYSSCREATE 
STAT 


US, 
TMP_FAB+24, MAIL$G_CNCT+72 
TMP_FAB+8, MAIL$G_CUNCT+76 
#0, (SP), #0, #687 SRMS_PTR 


#17409, SRMS_PTR 


#8261794, 
#512, $RMS 


TMP _BUFF 


TMP” RAB+ 


Ms_PTR+24 
PTRF 


¢ RAG+ 
MAiL$G_CUNCT+72, 26$ 
#1, SYSSCONNECT 
STA 


TMP_RAB+24, MAIL$G 
. MAIL$G_CNC 
#8261840, TMP_RAB?24 
MAIL$G_CNCT+100 

tee MATLSGL_FLAGS+1, 27$ 


CNCT+ 
NCT+7 


PURGE_VEC 
WoT L 9h 88647, PURGE _VEC+4 
PURGE VEC 


G 
#1, SYSSPURGWS 
#1, MAILSGET_INPUT 
RO, STATUS 


DESC, RO 
29$ 


32 V4.0-74 
R 


0-742 P 
:CMAIL. SRCIMAIL.B32;2 age 68 | 


+132, 23$ 


+ ) SS YH YY YH 


Pee Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Ge Ge Ge Se Se Be Be Se Be Se Be Fe Be Se Fe Fe Se Be Fe Fe Be Fe Be Se Fe Fe Se Fe Fe Fe Be Be 


Gee? Se Sagi wee as OURS | 


mM 2 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 69) MAI 
v04=001 12-8 08- 1 3be 93:03:98 DISKSVMSMASTER:CMAIL.SRCIJMAIL.B32:2 > (28) von 
} 
51 00000000" 00 CA MOVL  DESC+4, R1 : 1635 | 7) 
$1 D TSTB (R1) : a | 
7c cA £9 0088 298: Brot Status, 358 : 1636 PY 
00000000" 00 50 BO 00308 MOVW RO, TMP_RAB+34 + 1638 at 
00000000" 00 99000000" 6 DO 003DF MOVL DESC+4,~TMP RAB+40 : 1639 : 1 
BD 00000000" “ EA BLBC MAILS$GCNCT?72, 288 ; 1640 at 
12 00000000" 00 0 Fi F1 BBC #3, TMP_RAB+S, 30$ + 1641 | ; 1 
00000000' 00 SF 003F9 PUSHAB TMP_RAB + 1642 71 
000000006 09 gi FB OFF CALLS #1, SY SSURITE : | i] 
1 0 €9 00406 BLeC =: RO, -2318 ; | :] 
38 11 00409 BRB 32§ ; nt 
00000000" 60 9F 0040B 30$: = PUSHAB TMP_RAB : 1643) i] 
000000006 00 01 FB 00411 CALLS #1, SYS$PUT : 3) 
18 50 £8 00418 BLBS RO, 32$ ; at 
00000000" 00 00000000' 00 BO 0418 31$:  MOVL THE _RAB+24, MAIL$G_CNCT+72 + 1645 21 
00000000" 00 00000000° 00 £0 0446 mova THP"RAB* , MAIL$G_CNCT+76 : 1646 
06 00000000' 00 08 FO 00433 32$: BBS #3, TMP_RAB+S, 33$ + 1649 
00000000' 00 Bs C0438 INCL  MAIL$G_CNCT+100 + 1650 
FF6A 31 00441 33$: BRW 28$ + 1652 
00000000' 00 9F 00444 34$:  PUSHAB TMP_RAB + 1655 
000000006 0 01 FB 0044A CALLS #1, MAILSREAD_FOREIGN_F ILE é 
5A 50 D0 00451 MOVL AT ; 
00000000" 00 007E10B0 8F D0 00454 35$:  MOVL #8261808, TMP_RAB+24 + 1656 
OF SA E9 0045F BLBC STATUS, $6$ + 1661 
00000000' 00 9F 00462 PUSHAB MAIL$G.CNCT + 1662 
000000006 00 01 FB 0046 CALLS #1, MATLSSEND_ADDR ; 
09 11 OO46F BRB 37§ ; 
5A DD 00471 36$: | PUSHL STATUS + 1663 
000000006 00 01 FB 00473 CALLS #1, LIBSSIGNAL : 7k 
03 09000000' 00 mY a 004 7A 37$: BBC #2, MAILSGL_FLAGS+2, 38$ + 1665 
50 01 DO 00485 38$:  MOVL #1, RO + 1669 
04 00488 RET : 1670 


; Routine Size: 1161 bytes, Routine Base: S$CODE$ + 137B 


N 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY ies’ 
v04-001 14-Se 


: 1 eg 1671 1 ROUTINE INTJOB = 

; 154 1626 1 

; 1548 1675 1 !44 

: 1549 1674 1 =! FUNCTIONAL DESCRIPTION: 

; 1550 1675 1! 

3; 1551 1ore . ¢ Get the sender's username and default eicec tery spec, check for 
3 1226 1677 1! new mail, get commands, parse then and dispatch to the command 
s 155 1678 1! action routines. 

3 1554 1679 1! 

; 1555 1680 1 ! INPUTS: 

; 1556 1681 1! 

; 1557 1086 17 MAIL$Q_INPTRAN = SYSSINPUT logical name translation descriptor. 
3 1328 bet ' INPCHAR_DESC = SYSS$INPUT device characteristics buffer descriptor 
3; 1560 1685 1 ! OUTPUTS: 

3; 1561 1686 1! 

3 126¢ 1687 1! Commands parsed and executed. 

3 156 1688 1 !-- 

3 1564 1689 2 BEGIN 

3 1565 1690 

: 1566 1691 ROUTINE SWALLOW _SIGNALS(SIGARG,MECHARG) = 

3; 1567 1696 BEGIN 

: 1568 1693 3 

3 1569 1694 3 MAP 

; 1570 1695 3 SIGARG : REF $BBLOCK; 

3: 1571 1696 

3; 1572 1697 BIND 

; 1e27 bb : SIGNAME = SIGARGCCHFSL_SIG_NAME] : $BBLOCK; 

; 1575 1700 4 RETURN (IF .SIGNAME ‘If success, then resignal to print 
; 1576 1701 4 THEN SS$_RESIGNAL ! otherwise, ignore error signals 
: 1577 1702 4 ELSE SS$_CONTINUE) 

3; 1578 1703 4 

3; 1579 1704 2 END; 


0000 00000 SWALLOW_SIGNALS: 
WOR Save nothing 


50 04 Ac 04 C1 9002 ADDL3 #4, SIGARG, RO 
06 60 9 0000 BLBC (RO) 
0 0918 BF 3C¢ 0A MOVZWL #2328, RO 
4 F RET 
50 01 00 9019 1$: MOVL #1, RO 
04 0001 RET 


Routine Size: 20 bytes, Routine Base: $CODE$ + 1804 


: 1580 1705 2 ROUTINE NOTICE_SIGNAL (SIGARG,MECHARG,ENBL) = 
> 1581 1706 BEGIN 

y 1582 170 

: 158 1708 SIGARG : REF $BBLOCK 

> 1584 1709 ENBL : REF VECTORL,LONG); 

; 1585 1710 


-1984 01:01: VAX-11 Bliss-32 V4.0-742 
a 7 9 05:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 


Page 


Sete Ge Se Se Ge ee Se Se Se Se ae 


— 4 2 SS SS SY SS 


| ? | 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1b-se -1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 71. 
v04-001 12280871 38e 9:25:98 DISKSVMSMASTER:CMAIL.SRCJMAIL.B32;2 (21) | 
3 3 B¢ 1711 BIND ; 
3 188 a SIGNAME = SIGARGCCHE SL. SIG_NAME] : SOBLOCK. : 
: 38 1713 RETSTS = ENBLL1] : REF-VECTORL,LONG : 
: 1590 1715 IF .SIGNAMECSTSS$V_FAC_NOJ EQL 3 : 
; 133) 1716 THEN RETSTSLOJ = T; : 
31 3 171 RETURN SS$_RESIGNAL ; 
; 159 1718 2 END; : 
| 
0000 00000 NOTICE_SIGNAL: : 
WORD Save nothing : 1705. ; 
51 046 ac 04 C1 00002 ADDL3 = #4, SIGA RG, Re 3 1712) : 
50 Oc ac 04 C1 00007 ADDL3 #4, s 1713) : 
03 02 Al OC 00 £D 0000¢ CMPZV #0; #12, 20R1), #3 : 1715 | 
04 12 00012 BNEQ ; : 
00 = B0 01 pO 00014 MOVL gocng? 3 1716) : 
50 0918 8F 3C 00018 1$: MOVZWL #2 $28 : 1717) ; 
04 0001D RET ; 1718 | : 
; Routine Size: 30 bytes, Routine Base: $CODES + 1818 : 
: 
3 1594 1719 2 BUILTIN : 
3 1595 1720 2 FP; : 
3; 1596 1721 2 ; 
3; 1597 \7s¢ 2 LOCAL ‘ 
; 1599 1724 2 NOERASE_FLAG, : 
: 1600 1725 2 ROWS, ; 
: 1601 1726 2 S, : 
; 1602 1727 2 BLI HANDLER, ADDR, : 
3 1603 1728 2 TRNCNMLST :~$SITMLST PECL CITERS= 1), ; 
3 1604 1729 2 PARSE SIGNALLED : VOLATIL : 
: 1605 1730 2 LDESC : VECTORC2, CONGI. | ‘ 
: 1606 1731 2 TATUS: ; 
: 1607 1738 2 
3 1608 1733 2 ENABLE NOTICE SIGNAL (PARSE SIGNALLED) ; 
: 1609 1734 2 BLI -HANDLER_ ADDR = ..FP; 
3 1610 1735 2 
> 1611 1736 iu .bestro3 = 6; 
3 1ol¢ ire? WULLDESCLI = NULLDESC(O]; 
3 1614 1739 i Parse _ command geet scrote specified in the DCL command Line 
; 1615 1740 2! (currently ont one is /EDIT This is not done unless invoked 
: 1616 1741 i with a "rea Bet command 4 mot RUN MAIL, MCR MAIL, or foreign command) 
; 1617 124@ IF /EDIT otth no values, default to /EDIT= Tt eEND. REPLYS 
3 1619 1744 if or -CLI_SIGNALLED 
3 1620 1745 CLISPRESENT(SD_EDIT) 
3 1621 1766 THEN ABEGIN 
3 16 ¢ 174 WHILE CLISGET_VALUE(SD_EDIT,DYN_DESC) 
: 16 1748 4 DO IF NOT” (STATUS = CALL_TPARSE(DYN DESC, 
7 1624 1749 4 EDI TGUAL_STATE,EDITQUAL_KEY)) 


| MAILSMAIL VAX/VMS 
v04-001 
: 1625 1750 
3; 16 $ 1751 
3; 16 17 ¢ 
3; 1628 17 
> 1629 1754 
; 16350 1755 
3; 1631 17 § 
3; 16 § 17 
3; 16 1758 
; 16 1759 
3; 1635 P 1760 
; 16 P 176) 
3 1637 e 1706 
: 1638 176 
: 1639 1764 
: 1640 P 1765 
3 1641 P 1766 
: Mb P 1767 
>; 164 1768 
3 1644 1769 
3; 1645 1770 § 
: 1646 1771 
3: 1647 177 2 
: 1648 1773 2 
3: 1649 1774 2 
3; 1650 1775 ¢ 
3; 1651 1776 
3; 1652 1777 3 
3; 1653 1778 3 
> 1654 1779 
3 1655 1780 
3; 1656 1781 
: 1657 17ee 
; 1658 178 
3; 1659 1784 
3; 1660 1785 2 
: 1661 1786 2 
3 1662 1787 2 
: 1663 1788 § 
3: 1664 1789 
3 1665 1790 2 
3; 1666 1791 
3 1667 1736 
; 1668 179 
3 1069 1794 
: 1670 1795 
3; 1671 1796 
: 1076 1797 
3; 167 1798 
3 1674 1799 
3; 1675 1800 
; 1676 1801 
3; 1677 1806 
3; 1678 1803 4 
3; 1679 1804 4 
: 1680 1805 4 
: 1681 1806 3 


| 


3 
PERSONAL MAIL UTILITY 18-Sep-19 4 4:01:96 VAX-11 Bliss-32 V4.0-742 Page 72 
14-Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCIMAIL.832;2 (21) | 
THEN SIGNAL_STOP(.STATUS); 
IF .CLI_EDITQUAL EQC 0 
THEN CLI_EDITQUAL = 1*°F SEND_EDIT OR 1*F_REPLY_EDIT; 
CLI EXTRACT = CLISPRESENT(SB_EXTRACT); 


i Translate logical name MAILSEDIT to see if there is a specific edit 
: command file to be used. If not, callable EDT will be used 


! 
! 
' 
! 
SITMLST_INIT(ITMLST=TRNLNMLST, 
(I TMCOD=LNMS_ STRING, BUF 
T2=.MAIL$Q 
] 


= ADR=.MAIL$Q FRITNAR_DESCC1I, 

EDITNAM_DESC(OJ, 

DITNAM_BESC)); 

= (STATUS = STRNLNM(ATTR=ZREF (LNMSM_CASE 
TABNAM=SD_LNMSFILE_DEV, 
LOGNAM=$DESCRIPTORT'MAILSEDIT'), 
ITMLST=TRNLNMLST)) EQL SS$_NORMAL; 


RETLEN=MAIL$Q_E 
MAILSGL_FLAGSCMAIF _V_USEREDIT 


If first character is a @ strip it off 
-MAILSGL_FLAGSCMAIF _V_USEREDIT] 
JF CHSEQL (1, CHSPTRCNULL CHAR). 1 CHSPTR(.MAILSQ_EDITNAM_DESCL1)) TH 


MAILS$Q_EDITNAM DESC[O] = .MAILSO_EDITNAM_DESCCO] = 1; 
yp :PAIESOZEDITNAM_DESCEI] = -MAILSQ_EDITNAM_DESCEII + 1; 


IF (NOT .MAILSGL_FLAGSCMAIF _V_USEREDIT]) OR (.MAIL$Q_EDITNAM_DESCLO] EQ 
CHSMOVE (. CALLABLE_EDTCOJ,CALLABLE_EDTC1),.MAIL$Q_EDITNAM_DESCL1}); 
NAILSO_EDITNAM_DESCLOJ =" CALLABLE_EDTLOS; 


MAILSUPCASE (MAIL$Q_EDITNAM_DESC); ! Make upper case for c 
MAILSGL_FLAGSCMAIF_V_CALEDT) = CHSEQL(.CALLABLE_EDT(O), 
-MAIL$Q_EDITNAM 1 


DESCL1)7 
-CALLABLEEDTLOJ, CALLABLE _EDTC13.0): 


IF .MAILSGL_FLAGSCMAIF_V_CALEDT 
THEN BEGIN 
OCAL 
DESC : VECTORC2,LONG); 
MAP 
SD_TPU : VECTORE .LONG : 
SD“EDT : VECTORL.LONG); 
DESCEO) = -MAILSQ_EDITNAM_DESCLO - -CALLABLE _EDTEQ]; 
DESCC1) = .MAIL$SQ~EDITNAM~DESCL1] + .CALLABLE~EDTLO]: 
IF .DESCCO) EQL 0 
THEN BEGIN 
DESC 03 = - $0 £01103; 
DESC 1) = :SD7EDTEN): 


BLIND), 


LU 0) 


ompare 


> 3 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VA 
v04-001 18-9087 1382 93:25:98 He 


V4.0-742 — 
2:42 SCMAIL.SRCIMAIL.B32:2 9 (21) 


. Check for ‘EDT’ 


SRRLSR 


if CHSEQL(.SD_EDTCOJ :$0 EDTC1) ;DESCLO .DESCL1)) 
THEN MAILSGL_FLAGSCMAIF y pOTEDT = {; 
IF CHSEQL(.SD_TPOLO) :$0 TPOLT -DESCCO "DESCL1)) 
688 THEN MAILSGL_FLAGSCMAIF V_EOTXYZJ = 1: 
689 LEDTNAR,BESC); 


STRSCOPY_DXCRAILSO_CA 


3 


' 
} Create the virual display without erasing screen 


NOERASE_FLAG=1; 
COLS=0; 
IF .MAILSGL_FLAGSCMAIF _V_SCOPE] THEN 
IF _LERR(SMGSTREATE_PASTEBOARD (MAILSL_SMG_DISPLAY,SDESCRIPTOR('SYSSOUTPUT'), 
,COLS ,NOERASE_FLAG);, 
RETURN .STATUS); 


ooo 
wr— 


Create the virtual keyboard and key table 
iF _ERR(SMGSCREATE VIRTUAL KEYBOARD (MAILSL_SMG_KEYBOARD,SYSIN_DESC);, 


URN NAL(.S : 
IF LERR(SMGSCREATE_KEY_TABLE (MAILSL_SMG_KEYTABLE);, 
RETURN SIGNALT.STATUS)); 


! 
Get user's default device and directory names and concatenate them together 


iF ERR(MAILSGET_DEVDIR(MAIL$Q_USERNAME ,MAIL$Q_USERDEF);, 
RETURN .STATUS); 


MAILSGET_DEVDIR reads the uaf record 


WAAWAWAWAARSROPIPINNONIPONDAYD 2 2 SS OOO 


ooo°oo ooono 
OODONAVEWN $0 ODNAUEWN (OO ONAOUSWN-OCONOUES WN OOO 


SN NN SSS SNS NSN NIN IS OO OCOCOOOO 
NNR 3  - tOOO 


le a ee ee ee a a ed a a 
vw 

ee ed de ee ed ee ee ee ce ee ee et a i a ce ce ce ee ee ae a cael ce ce a ce ee cel el ce ee cl ee ee ee ce cee ee el ee ee el 

©0209096909090909090909 090909090902 09 0 Cn a C8 CB C8 COB CB CBCDG9 ODE C8 GDGBD CDCR CD CDCECS COCR CDCR CR CR OSCR ORES 


: 
2 
3 
2 MAILSL_MYUIC = .MAILST_UAF_BUFFCUAFSL_UIC); ' Get my UIC 
2 STRSCONCAT(MAIL$SQ_MAILDEF ,MAILS$SQ_USERDEF ,MAIL$Q_MAIL_MAI); 
r 2 MAILSGL_FLAGSCMAIF _V_CAPTIVE) = TMAILST_UAF_BUFFCUAFSV_CAPTIVE); 
4 4 Check for new mail 
1 4 IF NOT .MAILS$GL_FLAGSCMAIF_V_BATCH) '‘Unless in BATCH mode 
$¢ 4 THEN BEGIN 
2 4 .FP = SWALLOW SIGNALS; 
24 4 IF MAILSGET_NEWMAIL (MAIL$Q_USERNAME ,NEWCOUNT) 
5 5 AND .NEWCOUNT REQ 0 
6 51 4 THEN (MAILSPUT_OUTPUT(NULLDESC); 
7 52 4 MAILSPOT_OUTPUT (MAIL$GETMSG(MAIL$_YOUHAVENEW) , 
728 53 »NEWCOUNT)); 
193 54 .FP = 0; 
7 55 : : 
731 56 !' Delete any old MAIL.TMP files 
re 57 ‘ 
73 58 MAILSDEL_TMPF(); 
734 59 END; 
735 860 2! 
As] 30) : If input is from terminal, assign a channel to it to enable CTRL/C AST's 
38 58 If .MAILSGL_FLAGSCMAIF_V_ITERM] 


+ 


<z 
or 


3 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16- -Sep-1984 9: Q1: +08 VAX=11 Bliss=-32 V4.0-742 Page 74 
v04-001 9): 42: DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 (21) 


14-Sep-1984 
3; 1739 1 THEN BEGIN 
: 1740 1865 SA ota ate me t onee TTCHAN,DEVNAM=MAIL$Q_INPTRAN) ; 
3: 1741 1 4] DEF INE_DEFAULT_KEYPAD(); 
; 170g 186 LOAD_KEY_DEFS(J; 
: 176 1868 END;~ 
3 17446 1 4 4 
: 1745 1870 ! Get commands and parse them 
3 ite 1871 ‘ 
3; 174 1 te dO BEGIN 
: 1748 Hf IF re FLAGSCMAIF_V_ITERM) 
3 1749 1874 MATLS$PUT QUTPOY TNULLDE SC) 
: 1750 P 1875 IF ERR NWAILSGET INPUT (COMM MAND _DESC Get the command 
> 1751 P 1876 CRIPTORCECHAR(LES. RAILS "))s, 
; 1726 P 1877 IF STATUS NEQ aR Eg FOF 
; 175 P 1878 AND .STATUS NEQ™SMGS$ EOF 
3 1754 P 1879 ped SIGNAL (. STATUS); 
3: 1755 1880 EXITLOOP 
: 1756 1881 STRSTRIM( COMMAND bese, COMMAND DESC); 
; ed 1886 MAILSUPCASE _Q( COMMAND _D ! Upcase the command 
3 1723 ieee Check string to see if it's a number. If so, prefix with ‘READ’ 
3; 1761 1886 ir CALL_TPARSE (COMMAND DESC ,DECNUM_STATE ,DECNUM_KEY) 
: 176¢ 1887 THEN STRECONEAT (CORMAND dD 
; 176 1888 3 Nhe READ *) ,COMMAND_DESC); 
3: 1764 H+ H FILE DESCCDSCSwW_ ppeece ! init file name desc 
3 1765 1890 CLIFCAGS = 0; ! gnit qualifier flags 
: 1766 1891 3 ! % 
3; 1767 1892 3 i of length is 0, then assume CONTINUE. Else parse command, and if 
3: 1768 1893 3 ' success, dispatch to process the command 
3 1769 1894 ' 
3; 1770 1895 MAILSENABLE CTRLCQO 
: 1771 1896 IF . COMMAND ~DESCEDStSw LENGTH] EQL 0 
; 177 1897 THEN ATL S CAD. CONTINUE () 
3; 177 1898 4 ELSE BEG 
3 1774 1899 4! yr =  BLI HANDLER ADDR; 
: 1775 1900 4 PARSE_SIGNALL 
3; 1776 1901 5 IF (STATUS = terispct PARSE (COMMAND_DESC, 
3 1777 Ie 5 MAIL SCOMMAND retteireae INPUT) ) 
3 1778 1903 4 THEN STATUS = CLISDISPATCH() 
3 1779 1904 4! P = 0; 
; 1780 1905 4! iF NOT STATUS 
; 1781 1906 4! AND NOT .PARSE SIGNALLED , 
: 1786 1907 4! THEN SIGNAL(.STATUS); 'Signal all errors 
: 178 1908 3 END; 
: 1784 1909 MAIL$G_CNCT he ee ee = Sr ire CR; 
; 1785 1910 MAIL$G CNCTCCNCT-B’FILR = FABSC” VA 
3 1786 1911 MAILSDELETEL! NK CRATL ENCTECNC! 0 “LNKLSTI); 
3; 1787 Ing MAILSDI SABLE. CTRL 
: 1788 191 MAILSGL_FLAGSCMAIF_V_ATTACHMENT]) = 0; 
: 1789 1914 END 
: 1790 1915 UNTIL CL LASSCE RIT FLAG] OR .CLIFLAGSCQUIT_FLAG]; 
3: 1791 1916 IF NOT .CLIFLAGS QUIT_FLAG AG] ' If not QUIT command, 
: 17 1917 THEN 
3; 179 1918 MAILSCLOSE_FILE(); ! Close any open file 
: 1794 1919 SCLOSE(FAB = TMP_FAB); i Close open input file 
: 1795 1920 RETURN TRUE 


it. RB. 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY p-1984 01:01: VAX=11 BLiss=32_V4.0-742 Page 75. 
v04-001 ep-1984 12: 03:98 DI SKSVMSMASTERSEMAIL.SRCIMALL. B32;2 (21) 
; 1796 1921 1 END; : 
54 49 64 45 26 4C 49 41 4D 1836 P.AFK: ASCII \MAILSEDIT\ : : 
80000000" 1844 Peas ADDRESS P.AFK 
54 55 50 54 55 4F 24 53 89 33 i} 48 P.AFM: ASCII \SYSSOUTPUT\ F : 
01852 -BLKB 2 : 
QO00000A 01854 P.AFL: <LONG 10 : : 
09000090" 01898 ADDRESS P.AFM : : 
OA 0185C P.AFO: ASCII <10> : ; 
20 3E 4C 49 41 4D 0185D ASCII \MAIL> \ : : 
01863 LKB 1 ‘ 
00000007 01864 P.AFN: <LONG 7 : : 
00090009" 01868 ADDRESS P.AFO : ; 
20 44 41 45 52 0186C P.AFQ: ASCII \READ \ : : 
01871 -BLKB 3 : 
00000005 01874 P.AFP: :LONG : | : 
00000000" 01878 ADDRESS P.AFQ : | ; 
OFEC 00000 INTJOB: ,WORD Save R2-R3-R4-RS.RO,R7.RB_RI.RIO,RI1 ; 1671) ; 
5B 000000006 00 9€E 00002 MOVAB MAILSPUT_ OUTPUT, R11 : | ; 
5A 00C00000' 00 9E 00009 MOVAB COMM AND. DESC, “RIO ; | : 
59 E8C8_ CF 9E 00010 MOVAB SD_EDIT; R ; | ; 
58 00000000" 00 9€ 00015 MOVAB MATLSGL_FLAGS, R8 ; | : 
SE 38 C2 O00IC SUBL2 #56, : | : 
24 AE D4 0001F CLRL © PARSE_ SIGNALLED : 1689 | : 
6D 0341 CF DE 00022 MOVAL 3 ; | ; 
50 6D DO 00027 MOVL (FPS, BLI_HANDLER_ADDR > 1734. : 
6D D4 O002A CLRL = (FP) : 1735 | : 
1C AE D4 0002C CLRL_ NULLDESC > 1736) ; 
20 AE 1c AE 9E 000¢t MOVAB NULLDESC, NULLDESC+4 : 1737) ; 
5A FE60 CA EB 00034 BLBS  CLI_SIGNALLED, 4$ > 1744 ; 
59 DD 00039 PUSHL > 1745 ; 
900000006 00 01 FB 0003B CALLS #1, CLISPRESENT ; ; 
4E 30 £9 00042 BLBC  —- RO, ; | : 
08 AA 9F 00045 1$: PUSHAB DYN_DESC > 1747 | : 
59 DD 00048 PUSHL RY : | ; 
000000006 00 o¢ FB Q004A CALLS #2, CLISGET_VALUE ; : 
25 30 £9 00051 BLBC ; | ; 
00000000' 00 9F 00054 PUSHAB ED{TQUAL_KEY : 1748 ; 
00000000' 00 9F O005A PUSHAB EDITQUAL™ “STATE ; | ; 
08 AA 9F 0006 PUSHAB DYN_D ; | ; 
EA23 CF 03 FB 0006 CALLS, #3. "CALL TPARSE ; | ; 
57 20 D0 0006 MOVL RO, STATOS ; | r 
d7 57 £8 00068 BLBS STATUS, 1$ ; ; 
57 DD 9006 PUSHL  STATU : 1750 | ; 
000000006 00 01 FB 000 CALLS #1, LIBSSTOP ; | : 
CC 11 0007 BRB > 1748 | : 
FES8 CA b3 0079 2s: TSTL L1_EDITQUAL > 1751 | ; 
o3 0070 BNEQ 2 | ; 
FES8 CA 03 DO 0007F MOVL #3, CII _EDITQUAL : 1753 ; 
CC AD «OF 00084 38: PUSHAB SD_EXTRACT > 1753 | 3 


z | 


eres a aan eee 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32 V4.0-742 Page 76 
v04-001 en eeen ake P5505:38 ee eal eta hie oka omar. es2s2 8? c24$ 
000000906 00 1 FB 087 CALLS #1, CLISPRESENT : | 
FESC CA 09 MOVB RO, CLI_EXTRACT : 
28 OA af 093 4$ MOVAB TRNLNMLST, S$S$ITMBLKPTR : 1763 
0 64 AS BO 0009 MOVW  MAIL$Q_EDITNAM DESC, (S$$ITMBLKPTR)+ : | 
0 0 8 0098 MOVW #2, (SSITMBLKPTR)+ : 
80 68 AB D 0095 MOVL MAIL$Q_EDITNAM_DESC+4, (SSITMBLKPTR)+ : 
80 64 AB 9E OOOA MOVAB MAILSQ-EDITNAM-DESC, (S$ITMBLKPTR)+ : 
80 Be Boag CLRL ($$I1TMBLKPTR) + : 
28 AE OF OOOA PUSHAB TRNLNMLST + 1768. 
7E D4 OOOAB CLRL = = (SP) : 
1668 C9 9F 00RD PUSHAB P.AFJ : 
38 AS 9F 00081 PUSHAB sp NSE ILE DEV : 
10 AE 02000000 8F 00 00084 MOVL 433554432, T6(SP) : 
10 AE 9F 000BC PUSHAB 16(SP) : 
000000006 00 9 FB OOOBF CALLS #5, SYSSTRNLNM : | 
57 0 pO 000C6 MOVL RO. STATUS : | 
50 D4 00069 CLRL oR : 
01 57 D1 000CB CMPL = STATUS, #1 : 
02 12 O00ce BNEQ 5$ : | 
50 06 0000 INCL RO : 
01 AB 01 05 50 FO 00002 5$: INSV RO, #5, #1, MAILSGL_FLAGS+1 : | 
51 01 + A8 01 05 EF 000D8 EXTZV #5, #1, MAILSGL_FLAGS+1, R1 ; 1773) 
19 51 £9 OO0DE BLBC F ; 
50 68 A8 DO 000E1 MOVL  MAIL$Q_EDITNAM_DESC+4, RO ; 1775) 
60 FEAB C9 91 OO0ES CMPB =~ NULL_CRAR, (ROY : 
06 12 OOOEA BNEQ = 6$ : 
64 AB D7? OOOEC DECL | MAIL$Q_EDITNAM_DESC > 1777) 
68 AB D6 OOOEF INCL  MAILSQ™EDITNAM~DESC+4 ; 12778 | 
05 51 €9 OOF? 6$: BLBC = «aR, : 1781) 
64 AB DS O00F TSTL | MAIL$Q_EDITNAM_DESC : | 
11 12 000F8 BNEG &8$ ; 
94 AD 9A OOOFA 7S: MOVZBL CALLABLE_EDT, R6 ; 1783 
50 68 A8& DO OOOFE MOVL MAIL$Q_ EBITNAM DESC+4, RO 3 
60 95 Ag 56 28 00102 MOVC3 6, CACLABLE EBT+1, (RO) : 
64 «AB 56 DO 00107 MOVL 6, MAIL$Q_EDITNAM DESC : 1784. 
64 AS 9F 00108 8S: PUSHAB MAIL$Q_EDITNAM DESC : 1787 
000000006 00 01 FB 0010 CALLS #1, MATLSUPCASE 3 
54 94 Ad 9A 0011 MOVZBL CALLABLE_EDT, R4 : 1788 
68 a DO 00119 MOVL MAILSQ_EBITNAM_DESC+4, R6 : 1789 
55 D4 0011D ot ee ; 1790 | 
95 a9 66 54 29 O011F CMPC3 R4, (R6), CALLABLE_EDT+1 ; | 
02 12 O0tg4 BNEQ © 9$ ; 
D6 00126 INCL F 
01 a8 01 07 55 FO 001 8 9S: INSV 5, #7, #1, MAILSGL_FLAGS+1 ; 
01 AB 95 OO12E TSTB. = MAILSGL_FLAGS+1 : 1791. 
4B 18 00131 BGEQ 13$ ; 
16 AE 64 AB 54 C3 00133 SUBL3 4, MAIL$Q_EDITNAM_DESC, DESC + 1800. 
18 AE 56 54 C1 01 9 ADDL3 4. R6, DESC +4 > 1801 | 
14 AE DS 0013 STL DESC > 1802 | 
05 12 gia) BNEQ 108 ; | 
14 F4 AD 7D 143 MOVQ SD_EDT, DESC ; 1804 
50 F8 AQ DO 00148 10$:  MOVL SDTEDT+4, RO : 1810. 
16 AE 00 60 Fa ay 20 O14¢ CMPCS SDTEDT, (RO), #0, DESC, @DESC+4 ; 
b4 12 0193 BNEQ 11% : 
02 a8 1 88 00157 BISB2 #1, MAILSGL_FLAGS+2 + 1811 
50 00E8 C9 DO 0015B 11$:  MOVL SD/TPUS4, RO > 1812 
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v04-001 14-Sep-1984 13342590 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 . (21) 
14 AE 00 60 00F% c9 20 9160 CMPCS SD_TPU, (RO), #0, DESC, aDESC+4 ; é 
6 12 16A 13s : : 
02 As 2 4 18 BISB2 #2, MAILSGL_FLAGS+2 ; 1813 : 
14 AE 9F 00170 128:  PUSHAB DESC : 1814 : 
0354 CB OF OH PUSHAB MAIL$Q_CALEDTNAM : : 
000000006 00 FB 0017 CALLS #2, STRSCOPY_Dx : : 
06 =A 7D ozs 13$: MOVQ #1, NOERASE_FLAG ; 1819 : 
1A 6 4 4 O18 BBC #4, MAILSGL-FLAGS, 14$ 3 1821) : 
04 AE SF 00186 PUSHAB NOERASE_FLAG : 1824 : 
OC AE 9F 00189 PUSHAB COLS ; | ‘ 
14 AE OF 4 C PUSHAB ROWS ; : 
16FC 8 6C9 «OF 0018F PUSHAB P.AFL 3 : 
04 AB 9F 00193 PUSHAB MAILS$L_SMG_DISPLAY 3 : 
000090006 90 05 FB 00196 CALLS #5, SMGSCREATE_PASTEBOARD : : 
6 50 44 00190 BLBC STATUS, 17$ ; : 
FEDO C9 SF OO1AO 148: PUSHAB SYSIN_ DESC 3 1829 : 
08 AB 9F O01A4 PUSHAB MAILSC_SMG_ KEYBOARD F : 
000000006 00 02 FB OO1A7 CALLS 2, _SMGSCREATE_VIRTUAL_KEYBOARD : : 
0D 50 €9 OO1AE C TATUS, 15$ : : 
Oc A8 9F 00181 PUSHAB MAIL$L_SMG_KEYTABLE > 1831) : 
000000006 00 01 FB 001B4 CALLS #1, SMGSCREATE_KEY_TABLE 3 ‘ 
OA 50 £8 00188 BLBS STATUS, 16$ : 
50 DD OO1BE 15$: PUSHL STATUS 3 ; 
000000006 00 01 FB 001C0 CALLS #1, LIBSSIGNAL s : 
04 001C7 RET ; | : 
036C C8 9F 001C8 16S: PUSHAB MAIL$Q_USERDEF > 1836 : 
70 AB 9F OOICC PUSHAB MAIL$Q-USERNAME : : 
000000006 00 02 FB OOICF CALLS #2, MATLSGET_DEVDIR ; | ; 
01 50 €8 001D6 17S: BLBS STATUS, 18$ : ; 
04 00109 RET 3 ; 
50 000000006 00 DO 001DA 18$: MOVL MAILST_UAF_BUFF, RO ; 1840 | 
20 «AB AD DO OO1E1 MOVL 36(RO)> MATLSL_MYUIC j 
000000006 00 9F O01E6 PUSHAB MAIL$Q_MAIL_MAT > 1841. 
036C CB OF OOTEC PUSHAB MAIL$Q_USERDEF ’ 
0364 C8 9F 001FO PUSHAB MAIL$Q-MAILDEF 3 
00000000G 00 03 FB OO1F4 CALLS #3, STRSCONCAT 3 
50 00000000G 00 oO OO1FB MOVL iL$T_UAF BUFF, RO ; 1842. 
01 9 EF 00202 EXTZV #3, #17 468(RO), R1 : 
06 1 FO 00209 INSV = R1, #6, #1, MAILSGL_FLAGS+1 ; | 
01 AB 01 £0 0020F BBS #1, MAILSGL_FLAGS+1, 20$ : 1846 
6D FDO70 CF 9E 00214 VAB_ SWALLOW SIGNALS, (FP) > 1848 | 
10 AE 9F 00219 PUSHAB NEWCOUNT > 1849 
70 «=AB OOF 9 1¢ PUSHAB MAIL$Q_USERNAME ; 
000000006 00 9 FB 0021F CALLS ae MATLSGET_NEWMAIL : 
20 ED 00226 BLBC RO, 19$ : 
10 AE Be 0229 TSTL §NEWCOUNT ; 1850. 
1B 13 0022C BEQL 19$ : 
1¢ AE 9F 00 F PUSHAB NULLDESC > 1851 | 
68 01 FB 00 CALLS #1, MAILSPUT_OUTPUT 7 
10 AE DD 00 PUSHL NEWCOUNT ; 1853) 
OO7EDEO8 8F DD 00237 PUSHL #8314576 : 1852) 
000000006 00 91 FB 00230 CALLS #1, MAILSGETMSG : | 
0 dD 4 44 PUSHL ; 
68 02 FB 00246 CALLS #2, MAILSPUT_OUTPUT ; | 
6D D4 00249 198: LRL > 1854 
000000006 00 00 FB 00248 CALLS #0, MAILSDEL_TMPF ; 1858 
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v04-001 12-88-1388 93:03:98 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 9° 24) 
23 £2 92 a 20$: BBC #2, MAILSGL_FLAGS, 22$ : 1863 
’ C CLRQ = = (§P) + 1865 
6 AS OF PUSHAB MAIL$W_TTCHAN : 
48 AB SF 00258 PUSHAB MAIL$Q~INPTRAN : 
000000006 00 04 FB 00 : CALLS #4, SYSSASSIGN : 
EEAE CF 6 FB 0026 CALLS #0, DEFINE _DEFAULT_KEYPAD + 186 
EEDC CF FB 026A CALLS #0. LOAD_KEY + 186 
06 68 0 E 0 of 21$: BBC #2, MAILSGL_FLAGS, 22$ + 187 
1¢ «AE SF 00273 PUSHAB NULL + 187 
68 01 FB 00 3 CALLS #1, MAILSPUT_OUTPUT : 
170¢ C9 9F 00279 228 PUSHAB P.AFN + 1880. 
SA DD 0 7D PUSHL R10 : 
000000006 00 08 FB 7F CALLS #2, MAILSGET_INPUT : 
iE 50 €8 00 86 BLBS ss ST , 24$ ; 
0001827A = &F 50 01 0028 CMPL STATUS, #98938 : 
12 13 00 90 BEQL 23 ; 
000000006 8F 50 pi 00 92 CMPL STATUS, #SMG$_EOF : 
09 13 00 BEQL 23$ : 
0 DD 00298 PUSHL STATUS ; 
000000006 00 01 FB 00290 CALLS #1, LIBSSIGNAL ; 
00A4 31 002A4 23$: BRW 28$ F 
SA DD 00 A7 24$:  PUSHL R10 + 1881 
SA DD 002A9 PUSHL R10 : 
00000000¢ 00 02 FB 002AB CALLS #2, STRSTRIM : 
5A DD 00282 PUSHL R10 : 1882 | 
v00000006 00 01 FB 002B4 CALLS #1, MAILSUPCASE_Q ; 
00000000' 00 9F 00288 PUSHAB DECNUM_ + 1886) 
00000000' 00 9F 002C1 PUSHAB DECNUM~STATE ; | 
5A DD 002C7 PUSHL R10 ; 
E7BD CF 03 FB 002C9 CALLS #3, CALL_TPARSE : 
OF 50 €9 OO2CE LBC =——s«aRO,.- 258 ; 
5A DD 00201 PUSHL R10 : 1887 
171C C9 9F 00203 PUSHAB P.AFP > 1888 
5A DD 00207 PUSHL R10 + 1887 
000000006 00 03 FB 00209 CALLS #3, STRSCONCAT ; 
E8 AA B4 OO2EO 25$: CLRW FILE DESC + 1889 
FESO CA 04 002E3 CLRL CLIFCAGS + 1890 
E709 CF 00 FB O02E7 CALLS #0, MAILSENABLE_CTRLC + 1895 
6A BS 09 EC TSTW  COMMAND_DESC > 1896 
09 12 OO2EE BNEQ  26$ : 
000000006 00 00 FB 00 FO CALLS #0, MAILSCMD_CONTINUE + 1897 
28 11 0027 BRB 27§ : 
24 AE D4 OO2F9 26%:  CLRL PARSE SIGNALLED + 1900 
000000006 : oF oer PUSHAB MAILS$GET_INPUT : 1901 
000000006 9F 0030 PUSHAB MAILSCOMMAND_TABLE ; 
A DD 0030 PUSHL 1 ; 
000000006 99 03 F8 O030A CALLS #3, CLISDCL_PARSE : | 
DO 00311 MOVL RO U ; 
OA 57 £9 00314 BLBC STATUS, 27$ : 
000000006 09 00 FB 0317 CALLS #0, CLISDISPATCH : 1903 
D 0 3 MOVL RO. STATU ; 
oor8 (8 0202 «BF BO 278 MOVW #514, MAILSG cNCT#128 : 1909 
OOAS CB 9F 00328 PUSHAB MAIL$G_CNCT+% : 1911 
000000006 00 1 FB CALLS #1, MATLSDELETELI ; 
£690 CF FB CALLS #0, MAILSDISABLE CTRLC > 191 
02 AB 8A BICB #8, MAILSGL FLAgS#E ; 191 
09 FESO OCA 03 £0 0033C BBS #3. CLIFLAGS, 28$ : 191 
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04-00 14-Sep-19 2:42 D 

; 1798 19 : GLOBAL ROUTINE MAILSUP_PRIV (PRIVMASK1,PRIVMASK2) :NOVALUE = 
; 1800 19 4 ! FUNCTIONAL DESCRIPTION: 

; 1806 13 $ : Ensure privs specified by privmask are enabled | 
Bos 1959 > BEGIN 

> 1806 1930 3 ENHANCED_PRIVSCO] = (.PRIVMASK1 AND .MAIL$Q_PROCPRIV<0,32,0>) 
> 1807 1931 XOR .PRIVMASK1: 
: 1808 19 é ENHANCED_PRIVS(1] = (.PRIVMASK2 AND .MAIL$Q_PROCPRIV<4,32,0>) 
: 1809 19 XOR .PRIVMASK2; 

: 1810 1934 IF ((.ENHANCED_PRIVSCO] NEQ 0) 

: 1811 1935 OR (. ENHANCED PRIVSC1] NEQ 0)) 

: 181g 19 6 THEN $SETPRV(ENBFLG=1,PRVADR=ENHANCED_PRIVS); 

: 181 193 TURN; 

5 1814 1938 1 3 


000C 00000 ENTRY MAILSUP_PRIV, Save R2,R3 3; 1922 
53 00000000' 00 9€ 90002 MOVAB MAIL$Q_PROCPRIV, R3 ; 
3 00000000' 09 000 MOVAB ENHANCED PRIVS, R2 : 

5 6 D Boe ig MCOM MAIL$Q_ PROCPRIV, RO : 1930 
50 04 AC 50 CB 0001 BICL3 RO, PRIVMASK1, RO ; 

é 50 04 AC CD 00018 XORL3 PRIVMASK1, RO, ENHANCED PRIVS + 1931 

50 7 20 04 EF 0001D EXTZ2V #4, #32, MAIL$Q_PROCPRIV, RO > 1932 
50 50 D2 00022 MCOM “S : 

50 08 Ac 50 CB 00025 BICL RO, PRIVMASK2, RO : | 

04 A2 50 08 AC CD 0002A XORL3  PRIVMASK2, RO, ENHANCED_PRIVS+4 : 1933 

62 D5 00030 TSTL.  ENHANCED_PRIVS + 1936 | 
05 12 00032 BNEQ ~=«:'1$ : 

04 A2 05 00034 TSTL | ENHANCED_PRIVS+4 > 1935 
OD 13 00037 BEQL : 

7E 7C 00039 1%: CLRQ  -(SP) + 1936 
52 DD 00038 PUSHL R2 ; 
01 DD 0003p PUSHL #1 : 
000000006 00 04 FB 0003F CALLS #4, SYSSSETPRV : 

04 00046 2$: RET : 1938 
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wot het 1 tae NY 1 91:03:98 DISKSVMSMASTER: CMAIL.SRCIMAIL .B32;2 . (288 | 
: 1838 1954 1 GLOBAL ROUTINE MAILSFORW_PRIV_CHECK = | 
; 3 1955 BEGIN 
> 1834 19 8 144 
2 } 5 13 } FUNCTIONAL DESCRIPTION: 
3 1 $ 1388 : This routine checks that the current process has SYSNAM 
; : : 1399 : privilege, so that it can do a SET/SHOW FORWARD on another name. 
: 1840 1968 2 in | 
> 1841 196 IF .MAIL$Q_PROCPRIVCPRVS$SV_SYSNAM] 
: 16 1964 THEN RETURN TRUE | 
3 + 1965 ELSE BE 
3: 1844 1298 SIGNAL ((SS$_NOSYSNAM-STSS$K_SEVERE+STSS$K_ERROR) OR MAILS$V_FACILITY); 
> 1845 196 RETURN STSS$R_ERROR 
3; 1846 1968 2 END; 
>; 1847 1969 1 END; 
0000 00000 -ENTRY MAILSFORW_PRIV_CHECK, Save nothing : 1954 
04 00000000° 00 02 €1 00002 BBC #2, MAILSO_PROTPRIV, 1$ 3: 1963 
50 01 DO OOO0A MOVL #1, RO 3; 1965 
04 0000D RET 5 
007E2812 8F DD OOOOE 1$: PUSHL #8267794 : 1966 
00000000G 00 01 FB 00014 CALLS #1, LIBSSIGNAL 3 
50 02 DO 0001B MOVL #2. RO > 1967 | 
04 OOO1E RET : 1969 
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1 1e8eb 1986 12:42:20 DISKSVMEMASTERSCMAIL SRE IMAIL.B32:2 99°28). 


> 1849 1970 1 GLOBAL ROUTINE MAILSCMD_DEFINE = 
: 1850 1971 1 ‘44 

: 1851 1978 1 | FUNCTIONAL DESCRIPTION: 
; 185¢ 1973 1: 

3 185 1974 1! Process the DEFINE key command 
; 1854 1975 1 
: 1855 1976 BEGIN 
> 1856 197 
> 1857 P 1978 IF _ERR(SMGSDEF INE_KEY (MAILSL_SMG_KEYTABLE, COMMAND_DESC);, 

> 1858 197 TSGNA AL (MATL$_PARSEFAIL,1,COMMAND_DESC,.STATUS)); 

: 1859 1980 2 RETURN T 

; 1860 1981 1 END; 


SP. BP. OP. OP. EF. EPR OF. OF. OR. OM. OM OP. OP. BPR OP. OP. EP. OP. OM OM OF EM OP. OM Be 


0004 00000 ENTRY MAILSCMD_DEFINE, Save R2 : 1970. 
52 00000000" 00 9E 00002 ROYAB COMMAND DESC, Ro ; 
52 DD 00009 PUSHL : 1979. 
00000000' 00 9F 00008 PUSHAB MAILSL_SMG.KEYTABLE ; | 
000000006 00 02 FB 00011 CALLS #2, SMOSDEFINE_KEY : 
13 50 £8 00018 BLBS STATUS, 1$ ; 
50 DD 00018 PUSHL ; 
52 0D 0001D PUSHL ; 
01 DD OOO1F PUSHL ; 
00761248 8F DD 00021 PUSHL #8262216 ; 
000000006 00 04 FB 00027 CALLS #4, LIBSSIGNAL 
50 01 DO OOOZE 1$: MOVL #1. RO : 1980 
04 00031 RET : 1981 
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14-Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCIMAIL.B32:2 
1988 } GLOBAL ROUTINE MAILS$GET_CLUNODES = 
1382 1 ! Translate MAILSSYSTEM_FLAGS. If enabled, and in a cluster, then 
1985 1 ! make a concatenated List of cluster nodes to avoid setting up decnet 
1358 : } Links. nodes will be separated by ‘'/"’. 
1988 2 BEGIN 
1989 
1990 2 LOCAL 
1991 SIDADR 
199¢ SYITMLST : SITMLST_DECL(ITEMS=2), 
199 MEMBER_FLAG : VOLATILE. 
199% NDESC = VECTORC2,LONG): 
1996 IF _.MAILS$GL_SYSFLAGSCSYSF_V_CLU_MAIL] 
1997 THEN BEGIN 
1998 SITMLST_INIT(ITMLST=SYITMLST, 
1999 CITACOD=SYIS_CLUSTER_MEMBER ,BUF ADR=MEMBER_FLAG)); 
2001 CSIDADR = 0; 
2008 SGETSYIW(EFN=1,CSIDADR=CSIDADR, ITMLST=SYITMLST); 
200 IF .MEMBER_FLAG 
2004 4 THEN BEGIN 
2005 4 SITMLST_INIT(ITMLST=SYITMLST 
2006 4 (ITMCOD=SY1$_NODENAME, 
200? ‘ BUF ADR=.MAILSGL_BIGBUFFER,BUFSI12=64,RETLEN=NDESC)); 
2009 4 STRSFREE1_DX(MAIL$Q_CLUNODES) ; 
2010 4 NDESCCO) = 0; 
2011 4 NDESCC1] = .MAIL$GL_BIGBUFFER; 
g0l¢ 4 CSIDADR = -1; 
2013 5 WHILE $GETSYIW(EFN=1,CSIDADR=CSIDADR, ITMLST=SYITMLST) 
2014 4 DO STRSCONCAT(MAIL$Q_CLUNODES,MAIL$Q_CLUNODES, 
2015 4 SLASH_DESC,NDESCJ; 
2016 3 END; 
2017 2 END; 
2018 3 
2019 2 RETURN TRUE 
2020 1 END; 
.EXTRN SYSS$GETSYIW 
000c 00000 .ENTRY MAILSGET_CLUNODES, Save R2,R3 
53 000000006 00 9€ 00002 MOVAB SYSS$GETSYIW, R3 
52 00000000' 00 9€ 00009 MOV MAIL$Q_CLUNODES, R2 
SE 2c C2 90010 SUBL #44, SP 
79 EB A2 E9 0001 BLBC MAILS$SGL_SYSFLAGS, 2$ 
50 10 AE 9E 00017 MOVAB SYITMLST $$ITMBLKPTR 
BO 10CF0004 8F 00 0001B MOVL #282001412, (S$SITMBLKPTR)+ 
80 CC «AE «9E 00022 MOVAB MEMBER FLAG, ($$ITMBLKPTR)*+ 
80 7C 00026 CLRO ($$ITMBLKPTR) + 
6E b4 0028 CLRL CSIDADR 
7E 7C QOO2A CLRO -(SP) 
7E b4 002C LRL -(SP) 
1C AE 9F OO002E PUSHAB SYITMLST 
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; 1908 0 ] 1 GLOBAL ROUTINE MAILSCHK CLUNODES(NODE_DESC) = : 
; 1904 8 i 1 ! Check if NODE_DESC is one of the nodes in this cluster, : 
3 128? 8 ¢ : if we are in @ cluster. ; 
: 190 0 6 2 BEGIN : 
; 1908 7 p $ 
: 1909 028 NODE_DESC : REF SBBLOCK; : 
; 1910 629 3 
: 1911 030 2 OWN : 
: 191¢ 031 TDESC : DYN_DESC_DECL; : 
3; 191 0 ¢ $ 
: 1914 0 LOCAL ; 
: 1915 034 STATUS; ; 
; ay 035 : 
: 191 036 STATUS = FALSE; ‘ 
; 1918 037 IF .MAIL$Q_CLUNODESCDSCS$W_LENGTH] NEQ 0 : 
> 1919 038 3 THEN BEGIN : 
: 1920 039 STRSCONCAT (TDESC,SLASH_DESC,.NODE_DESC); F 
+ 1921 2040 STATUS = NOT CHSFAIL(CASFIND.SUB(-;MAIL$Q_CLUNODESCDSC$W_LENGTH) ; 
: 198@ 041 .MAIC$Q_CLUNODESCDSCSA_POINTER], : 
: 192 $pee e TESCEDSCSY_LENGTH) | : 
; 1924 04 - TDESCCDSCSA_POINTERI)); | ; 
+ 1925 044 END; ; 
: 1926 045 : 
: 1927 2046 2 RETURN .STATUS | ; 
: 1928 2047 1 END; : 
: 
i o 
-PSECT SOWNS,NOEXE,2 | : 
QO# 0032C TDESC: .BYTE  OC2] ; | ; 
02 OEF 0032E BYTE 14, 2 : : 
00330 -BLKB 4 | ; 
| 
-PSECT $CODES,NOWRT,2 | : 
OOFC 00000 -ENTRY MAILSCHK_CLUNODES, Save R2,R3,R4,R5.R6,R7  ; 2021 : 
57 00000000" 00 9E 6000¢ MOVAB MAILS$Q_CCUNODES, R7 : | 3 
56 00000000' 00 9€ 0000 MOVAB TDESC,~R6 ; : 
54 D4 99019 CLRL STATU : 20 6. : 
67 BS 001 TSTW § MAIL$Q_CLUNODES : 2037. : 
3 1 00014 BEQL 3$ ; : 
06 AC bd 0016 PUSHL NODE_DESC : 2039. : 
E2AB CF 9F 00019 PUSHAB SLASA_DESC ; : 
56 DD 0001D PUSHL RS ; : 
000000006 00 03 FB O01F CALLS #3, STRSCONCAT : : 
51 04 A? p 00 6 VL MAILS$Q_CLUNODES+4, R1 > 2041. ; 
55 66 3C 0002 MOVZWL TDESC, ; 206 : 
50 04 A bG 0020 OVL TDESC4+4, RO ; 2043 : 
61 67 60 55 39 00031 MATCHC R5, (ROS, MAILSQ_CLUNODES, (R1) : ; 
93 13 000 BEQL 1$ : | : 
53 5 09 00 MOVL RS, R3 ; : 
55 c2 00038 1$ SUBL2 RS, R ; : 
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; 19 98 1 GLOBAL ROUTINE MAILSCMD_FORWARD = | 

3; 1951 0469 1 S44 an 

3 13 ¢ bey : } FUNCTIONAL DESCRIPTION: e | 

3 19 O26 1! This is the FORWARD command action routine and is called to send + | 

; 13 5 S27 : } @ copy of the current message to another user or users - | 

PY . e ‘ 
[3 19 055 1 i INPUTS: i 

: 1938 B26 1! an 

; 1939 057 1! Current message context. | 

; 1940 058 1! 4 

: 1941 059 1 ! OUTPUTS: e | 

: 1oe6 060 1! 2 - | 

3 Hb a be : A copy of the current message is sent to the specified user(s). | 

3 1945 06 BEGIN | + | 

: 1946 064 2 LOCAL | 2 

: 1947 065 EDIFAB : $FAB_DECL, i 

3; 1948 066 EDIRAB : $RAB— cKEN . ef 

3 1949 067 NAMBUF : see. OCK NAMSC_MAXRSS], | 

: 1950 068 EDINAM : $NAM fb. - | 

3; 1951 2069 OUTDESC : VECTORE LONG), | 

: 195¢ 070 MOREF LAG | z 

; 195 071 USE REF SBBLOCK, | : 

3 1954 Ors 2 USEFAB : REF $BBLOCK, e | 

: 1955 2073 2 USENAM : REF $BBLOCK : . | 

: 1956 2074 2 STATUS; ' Routine status - | 

3 1957 2075 2! - | 

; 1958 2076 2 ! Rewind current message | 

: 1959 2077 2: - | 

; 1960 P 2078 2 if -ERR( CIF eens Mong tse V_ISAM] | 

: 1961 P 2079 2 THEN MAICSREWIND_1 ASG() | 

3 1962 P 2080 2 ELSE MAILSREWIND “ASGO)):, ! Rewind current message 

3: 1963 P 2081 2 SIGNAL (.STATUS);, ! If failure, signal i 

> 1964 50g 2 RETURN TRUE); ' and quit 

3; 1965 2083 2 

3: 1966 2084 2 aga A hh og i. 

3 1967 2085 § TMP_X 

; 1968 2086 PARSE E ‘EDIT ravaL "etl EDITQUALLE -FORW_EDITI); 

3: 1969 2087 IF CCIFL AGS EDIT_FLAG) 

; 1970 2088 THEN BEG! 

3; 1971 P 2089 $F AB_ INI Fag EDIFAB 

> 197 P 2090 FNS=. TMP FILE! _DESCCDSCSW_LENGTH] 

: 197 P 2091 FNA=, TMPFILE1~DESCLDSCS$A_POINTERS, 

3 1974 P O36 RAT=CR 

: 1975 P 209 RFM=VAR, 

; 1976 P 2094 DEQ=3, 

3; 1977 P 2095 CIX=HAILS “tapes 

; 1978 P 84 XAB=TMP 

; 1979 P 209 FAC=PUTS 

: 1980 P 2098 FOP=SQ0, | 

; 1981 099 NAM=EDINAM) ; 

: 1386 190 

; 198 P 2101 SNAM_INIT(NAM=EDINAM 

> 1984 P 108 RSS=NAMSC_MAXRSS, 

3; 1985 P 210 RSA=NAMBUF , 

3; 1986 P 2104 ESS=NAM$C _MAXRSS, 


4 
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: 1987 105 ESA=NAMBUF ) ; 
8 1388 198 
: 198 P 21 SRAB_INIT(RAB=EDIRAB, 
; 1990 & 198 FAB=EDIF 
: 1991 P 21 CTX=MAIL$ OPENOUT, 
: Ie P 2110 UBF=TMP_BOFF, 
: 199 111 USZ=MAICSK_INBUFFSZ); 
> 1994 13 
: 1995 11 USERAB = EDIRAB; 
: 1996 114 USEFAB = EDIFAB: 
: 199 115 USE = EDINAM: 
; 1998 116 END 
: 1 11 ELSE BEGIN 
3 Soot 118 ! 
3 et 13? Create a temporary file to store the message 
3 $008 154 SCLOSE (FAB=TMP_FAB); ! Close any other file 
> 2004 P 21 : SFAB_INIT(FAB=TMP_FAB, 
; 2006 P 21246 =T 
> 2007 P 2125 FNS = - THPF ILE _DESCEDSCSW_LENGTH] 
; 2008 P 2126 FNA = .TMPFILE-DESCLDSC$A_POINTERJ, 
: 2009 P 2127 CTX = MAIL$_OPENOUT, 
3 g310 P 2128 XAB = TMP_XAB, 
: 2011 Pp 129 RAT = C 
; 2012 P 2130 RFM = VAR 
> 201 P 2131 FOP = (TMD,SQ0), 
: 014 3132 FAC = (GET,PUT,BRO)); 
: 2015 siz 
: 2016 P 2134 SNAM_INIT(NAM=TMP 
3 soiz p $13? RSS=NAMSC_MAXRSS, 
: 2018 P 2136 RSA=TMP_ESNAM_BUF , 
: 2019 P 2137 ESA=TMP-ESNAM BUF , 
: 2020 138 ESS=NAMSC_MAXRSS); 
; 2021 139 
3 2028 P 2140 SRAB_INIT(RAB=TMP_RAB, | 
; 202 P 2141 = 
> 2024 P 142 CTX=MAIC$_OPENOUT, 
: 305 P 214 UBF =T 
: 2026 144 USZ=MAICSK_INBUFFSZ); 
3 2027 145 
; 2028 146 USEFAB = TMP_FAB; 
> 2029 147 USERAB = TMP~RAB; 
; 2030 148 USENAM = TMP_NAM; 
3 5 1 133 END; 
3 038 P 13 IF _LERR( poerareer = ,USEFAB,ERR=UTILSREPORT_I0_ERROR);,! Create a temp file 
; 2035 P 188 IF ERR(SCONNECT(RAB = -USERAB, ERR=UTILSREPORT 10_ERROR);,! Connect 
> 2036 P 2154 EDIFABLFABSV_DLT) = 1: 'Set delete if FOR/EDIT 
: 037 P 2155 SCLOSE (FAB=.0SEFAB); 
3 2038 136 RETURN TRUE); 
: 2039 15 USERABCRABSL_CTX] = MAILS$_WRITEERR; 
3 2040 158 2 STATUS = MAICSEXTRACT_MESSAGE (CLISPRESENT(SD_HEADER) , .USERAB); 
+ 2061 159 2 IF NOT .STATUS 
; Que 160 3 THEN BEGIN 
> 204 161 USEFABLFABSV_DLT) = 1; 
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> 2044 168 SCLOSE (FAB = .USEFAB); 
; 045 16 RETURN TRUE; 
3 $ 164 END; 
; 204 165 ' 
3 B38 166 Get the name of the new addressee(s) and send the message. 
; 2050 168 MAILSGET _CLUNODES(); ' Get List of cluster nodes 
; 991 169 MAILSGET sunrdtoccttEve gMAILSGETMSG(MAILS_ 1$UB20)) ; 
; 20 ¢ 170 PAILS COSCSwW iti Be entered, quit 
: 205 171 i EN (USEF EF ABC FABSV LOSE CrAB = LUSEF AB) RETURN 
3; 2054 1% MAIL sup CASE SAT See 18); Upcase the aaleniin names 
; 2055 17 RAILSIN 1_ADBR(MAILSG~C a); Init addressee list 
; ge9 Ve IF CHECK ~SENDCRAILSABD. NADDR(MAILSO_ TO,MAIL$G_ ent} "hdd aaireanenial to List 
: 2058 176 MAILSNET_END USERS (MAILSG CNCT); 
; 2059 17 IF MAILSGET T gNey MAIL$Q_SuBJ 
: 2060 178 malt GET THSGCRAILS $ 1806300) EQL RMS$_EOF! Get the subject 
> 2061 179 THEN’ (U USEF ABLFABSV SCLOSE(FAB=.USEFAB); RETURN TRUE); 
; 06¢ 180 IF .CLIFLAGS EDIT FLAG] 
: 206 181 4 THEN BEGIN 
> 2064 18¢ 4 SCLOSE (FAB=.USEFAB) ; 
: 2065 183 4 GET_SEND MSGCTMPF ILE! DESC); 
> 2066 184 4 USEFABCFABS$V_DLT] = 1: 
> 2067 185 4 SOBENGFABS: USEFAB) ; 
; 2068 186 4 END 
: 2069 187 3 ELSE MAILSSEND_ADDR(MAIL$G_CNCT); 
; 2070 188 : 
: 2071 189 USEF ABLE ABBY PL ne 
: 2078 190 é $CLO SE (FAB 2 PFAB): ! Close the temp file 
+ 207 191 RETURN T RUE 
: 2074 192 1 END; 
SRMS_PTR= TMP_XAB 
$RMS_PTR= TMP~F AB 
$RMS~PTR= TMP~NAM 
SRMS~PTR= MAIC$G_CNCT+646 
OFFC 00000 ENTRY Rats sao FORWARD, Save R2,R3,R4,R5,R6.R7,- ; 2048 
5B 000000006 00 9€ 90002 MOVAB MAILSGET ; 
2A 90000 906 00 9E 9000 MOVAB OT ILSREPORT O_ERROR, R10 : 
9 0000 0 G 9E 00010 MOVAB SYS$C : 
38 : 1 CF 9€ 90017 MOVAB RSE Ltt QUAL , RB ; 
57 0000 000° 00 9E O1¢ MOVAB $0 TO ; 
56 00000000" 00 9€ 000 MOVAB FAB, R ; | 
SE FEQS CE 43 OO02A MOVAB -508(SPS SP ; | 
09 FF78 ES 000eF BLBC MAILSGL_FLAGS, 1$ + 2082 | 
000000006 00 9 Fe 09 : CALLS #0, MAICSREWIND. 1_MSG : | 
000000006 00 0 FB 003d 1$: CALLS #0 MAIL $REWIND_MSG ; 
0c 0 E O044 2$: BLBS STATUS, 3$ ; 
DD 00047 PUSHL STATUS ; 
000000006 00 gt Fe 0049 CALLS #1, LIBSSIGNAL ; 
0251 31 00050 BRW 14§ ; 


| 


4 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1h-sep-19 4 01:01: VAX-11 Biiss-32 V4.0-742 Page 91. 
Hire ty aati 3:03:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 . (28) 
0058 «8 00 6E ; 00 2¢ oh 3$: MOVCS #0, (SP), #0, #88, S$RMS_PTR + 2084) 
30 A6 5843 F 80 MOVW #22547, SRMS_PTR : 
A6 FF44 F B 6 MOVW #-188, TMP_XAB+8 ; 2085. 
7E FF3G C6 01 : EF 0006 EXTZV #2, #1, CLT_EDITQUAL, -(SP) + 2086 | 
68 FB O6F CALLS #1, PARSE_EDiT_QUAL : | 
FF2C 0080 i 0076 BLBS [FLAGS, ~4$ + 2087) 
0050 BF 00 6E 00 2¢ QO07A 4s mOVCS #0, (SP), #0, #80, S$RMS_PTR : 2099 
BO AD 5083 F g0 $088 MOVW #20483, $RMS_PTR : 
B4 AD 40 8F 9A 0089 MOVZBL #64, $RMS_PTR+4 : 
C4 AD 3 80 ; OVW , SRMS_PTR+ : 
C6 AD 1 009 MOVB #1. $RMS"PTR+ : 
C8 AD 007E 1942 F D0 00096 MOVL @ 461794. SRMS_PTR+24 ; 
CE AD 0202 = 8F 80 0009E MOVW #514, $RMS_PTR730 : 
D4 AD 50 Ab 9E DO0A, MOVAB TMP_XAB, SRMS_PTR+36 : 
D8 AD 08 AF 4 OOA9 MOVAB AM PTR+40 : 
DC AD 0008 +6 D QOOAE MOVL  TMPFILE1_DEST+4, S$RMS_PTR+44 : 
E4 AD 0004 ¢€6 90 00084 MOVE. TMPFILE1-DESC, $RMS_PTR+52 : 
0060 8F 00 6E jon 00 2c 000A MOVCS #0, (SP)7 #0, #96, SRMS_PTR + 2105 
08 AE 6002 8F B80 000C3 MOVW #24578, $RMS_PTR : 
OA AE 01 BE 000C9 MNEGB #1, $RMS_PTRF2 : 
OC AE 68 AE 9E 000CD MOVAB N , SRMS_PTR+4 : 
12 AE 01 8E 000D2 MNEGB #1, $RMS_PTR?1 : | 
146 «AE 68 AE 9E 00006 MOVAB NAMBUF, SRMS_PTR+12 : | 
0044 8F 00 6E aoa 00 2c o00¢¢ MOVCS WO, (SP), #0> #68, SRMS_PTR + 2111) 
FF6C 86CD 4401 8F BO OOOE MOVW #17409, SRMS_PTR : 
84 AD OO7E10A2 8F DO OOODEC MOVL #8261794, $RAS_PTR+24 : 
8C AD 0200 8F BO O00F4 MOVW #512, $RMS_PTRT32 : 
90 AD 76 A? SE OOOFA MOVAB TMP_BUFF, SRMS_PTR+36 : 
AS AD BO AD 9E OOOFF MOVAB EDIFAB, $RMS_PTR+60 : 
53 FF6C CD 9E 00104 MOVAB EDIRAB, USER > 2113 
52 BO AD 9E 00109 MOVAB EDIFAB, USEFAB : 2114 
50 08 AE 9E 0010D MOVAB EDINAM, USENAM > 2115 
009F 31 00111 BRW 6$ : 2087 
56 DD 00114 5$ PUSHL R6 > 2121 
69 01 FB 00116 CALLS #1, SYSSCLOSE : 
0050 = &F 00 6E 00 2c 90119 movcS #0, (SP), #0, #80, SRMS_PTR : 2132 
66 5003 8F 80 0121 OVW #20483, SRMS_PTR F 
04 Ab 50 8F 9A 00126 MOVZBL #80, S$RMS_PTR+4 ; 
14 Ab 3 BO 00128 OVW #3, $RMS PTR+20 ; 
16 Ab 43 BF 90 O01eF MOVB #67, SRMS_PTR+2 ; 
18 A6 OO7E10A Br D0 4 MOVL #8261796 SRMS_PTR+24 : 
1E Ab 020 F BO 0013C¢ MOVW #514, $RMS_PTRT F | 
4 A 50 A6 OE O14¢ MOVAB TMP_XAB, SRMS_PTR+36 F | 
8 Ab AO Ab YE 0014 MOV TMP"NAM, $RMS~PTR+ ; 
C Ab 0000 «C6 p 014 MOVL TMPFILE_DESC+%, S$RMS_PTR+44 ; | 
4 a6 Oocc C6 015 TMPFILE-DESC, $RMS_PTR+52 ; | 
0060 8F 00 6E - 00 2c 138 MOVCS #0, (SPT, #0, #96, ~$RMS_PTR ; vid 
Ag Ab 6002 BF 0 00161 MOVW #24578. SRMS_PTR ; 
A2 Ab 1 BE 00167 MNEGB #1, $RMS PTR? : 
AS AG FE2C C6 9E 00168 MOVAB TMP_ESNAM_BUF, SRMS_PTR+4 ; | 


ne 
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AA Ab 01 BE 17) MNEGB #1, $RMS_PTR+10 : 
AC AG FE2C f E 0017 MOVA TWP _ESNAR_BUF $RMS_PTR+12 ; | 
0044 8F 00 6E ats C ti mOovcS #0,~(SP),-#0, #68, SRMS_PTR + 2144, 
0276 (C7 4401 8F 80 1 MOV #17409 SRMS_PTR : 
BE C7 OO7E10A¢ F DO 001 é MOVL #8261 $4, SRAS_PTR+24 : | 
96 «(C7 0 9 F 80 1 MOVW oft SRMS_PTRI32 : 
9A C7 6 A? 9E 0019 MOVAB BUFF, SRMS_PTR+36 : | 
B2 (C7 66 9E OO1A MOVAB TMP-FAB, SRMS_PTR+60 : 
¢ 66 SE OO1A MOVAB TMPFAB, USEFAB : 3146 
0276 C7 9E OO1AA MOVAB TMP"RAB, USERAB + 214 
50 AO A6 9E O1AE MOVAB  TMP-NAM. USENAM : 3148 
0404 8F BB 183 6$ PUSHR #*M2R2,R1 + 2152 
000000006 00 08 FB 018 CALLS #2, SYSSCREATE : 
0 : 01BE BLBS Atus, 7 : 
00E0 31 001C1 BRW : 
0408 &8F 8B 001C4 7$ PUSHR #*M<R3,R1 + 2156 
000000006 00 08 FB 001¢8 CALLS #2, SYSSCONNECT : 
08 OO1CF BLBS STATUS ; 
BS AD 80 BF &8 00102 BISB2 #128, EDIFAB+S : 
00cs 31 0010 BRW 13$ : 
18 A3 007E10D0 8F 00 OO1DA 8S: MOVL #8261840, 24(USERAB) + 2157 
53 DD OO1E2 PUSHL USERAB : 2158 
E193 CF 9OF OO1E4 PUSHAB SD_HEADER : 
000000006 00 01 FB OO1E8 CALLS #17 CLISPRESENT ; 
50 DD Ole PUSHL RO ; 
000000006 00 08 FB OO1F1 CALLS #2, MAILSEXTRACT_MESSAGE ; 
45 E9 001F8 BLBC STATU : 2159 
1983 CB 00 FB 001FB CALLS #0, MAILSGET_CLUNODES > 2168 
OO7EDDFO BF DD 90200 PUSHL #8314 > 2169 
68 01 FB 00206 CALLS #1, MAILSGETMSG : 
50 0D 90209 PUSHL RO ; 
57 DD 00208 PUSHL R7 : 
000000006 00 02 FB 00200 CALLS #2, MAILSGET_INPUT : 
67 8B 0014 TSTW  MAIL$Q_TO : 2170 
76 13 00216 BEQL : 
57 DD 00218 PUSHL 7 : 2172 
000000006 00 01 FB OO2IA CALLS #1, MAILSUPCASE_Q : 
FO «AZ. «OOF 00221 PUSHAB MAIL$G_CNCT : 2173 
000000006 00 01 FB 00224 CALLS #1, MATLSINI_ADDR ; 
FO A? 9F 00208 PUSHAB MAIL$G_CNCT > 2174 
57 DD 00 PUSHL F 
000000006 00 02 FB 00 CALLS #2, MAILSADD_ADDR : 
DD 0 PUSHL : | 
00000000v 99 1 FB 9 CALLS #1, CHECK_SEND : 
0 : 00 40 9$: BLBC ; 
FO A? OF 0024 PUSHAB MAIL$G_CNCT : 2176 
000000006 00 1 FB 00246 CALLS #1, MATLSNET_END_USERS : 
OO7EDDF8 8F DD 00 4p PUSHL #83 : 2178 | 
68 1 FB 0 CALLS #1, MAILSGETMSG ; | 
: bb 6 PUSHL RO ; 
08 A? 9F 00 PUSHAB MAIL$Q_SUBJ ; 2177 | 
900000 0G 90 9¢ FB CALLS #2, MATL $GET INPUT 3 
0001827A = BF 30 i 6 CPL R { #9893 : 2178 
20 FF2C E9 00 LBC  CLIFLAGS, 11$ > 2180 
£§ DD 00 8 PUSHL USEFAB : 2182 


et ee ee eee Oe Oe eee Oe Oe Ue ee ee Oe ee ee ee ee Oe Oe Ue DL A ad 


<S 
=> 


ma mM ww OM~S CGO —w 

ano o om o0O OOo OO 
™N eo FH FP CPE KK 

-" N NN CN CN OCT 

oa Ste te te te te teste te tate tartare 

3 

a 


STER: CMAIL.SRCIMAIL.832;2 


™N 
~~ 
' ~ 
t 
} So 
| . 
| w 
j > 
~ 
— | 
wo « 
w a 
| —< i) a | 
~= “nn <-— 
| oan a Le] 
= ww od w 
-> wMOu 2 zu. WW 
-* Owetw Ww Fww Oo 
‘x wowmMm Aa Www 
xm Yew 1D CO 2HAD LY 
<=— *#A- &- FH YiuI~ A 
>a MwreMN Ww —n 
> Ju > uod - fe 4 
M9 ” AZ ~<a 
u Ou — Dou 
a Suu er UU + * 
00 —Be Ve Vee Ne 
om B82 252-22 BB 
~~ 
oe Maw MN 4H) 
-™m wEovOrsu TuauOdtiw 
SoF- 12M I1MM JOM UMM U>eF 
<5 5a 540 Da De Ow 
wv VA Vv@av@cv@aviac 
coco 
on 
--— 
| iw 
aa - 
~we@ FA FA A 
wm on wR (1 
‘es oer ee = 
wo 
om ONWNO ~ «ue vr 
ner BOC AAA OA Ee 


iN 
SOooooooooooooo 
COOOOOCOOCOOOSCoOoO 


@u @MOOO-—-uOOWMOo@Oow o 
uu DOurOuDOu oo = 
- 
On a Ne ERM ae 
OLVODMOO LODMNOO + 
A 
ws 
Tr Oo o oO a 
a @ u @ oO 
o vw 
Oo a 
> 
oe oe 
Lam av 
4 w 
- ec om oO om OO eo 
5 “o oct © o<z wow @ 
co 
=) > Oo oO c 
_ own oO own - 
= oo oOo oo 7 
o Oo So 3 
o So o ° 
— o So So a 
So So o 
o So o 
Oo oO oO 
” 
ac . 
as w“ 
a @ 
ca 
“” ~ 
= 2 
> 
~ Oo 
= co 
< oO 
> 
a 
N 
- 
w 
2 ¢ 
—_— 
io 4 
53 5 
tt é 
— 
<a 
z> on 


nS en 


MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1hesép-1986 01:01: VAX=11 BLiss-32 v4.0-742 9 
04-001 Wen een Fhe Fh 8h:88 Peete Ee MR On te mars 3252 8M c2d 


> te ROUTINE MAILSLOOKUP_FILE(FILE_DESC) = 


4 
) 


ESA=NAMRSS) ; 
STATUS = SOPEN(FAB=IFAB,ERR=UTILSREPORT_I0_ERROR); 


H 193 1 

; 1946 1 

; 4 12 } FUNCTIONAL DESCRIPTION: 

; 2080 199 1 i Opens the specified file to ensure it is present and readable. OPENIN 

; 2081 198 1! error signalled if not 
; 208 199 1! 
; et 00 1 =! INPUTS: 
; 20 01 1! 
; 2085 8¢ 1! FILE_DESC is the address of a dynamic string of the file to open. It 

: oBe ts : is updated to have the resultant name if the open is successful | 
; 2088 05 1 !-- 

; 2089 4 BEGIN 
; 2090 0 

: 2091 08 MAP 

; 209 09 FILE_DESC : REF S$BBLOCK; 

; 209 10 

: 2094 11 LOCAL 

3; 2095 \¢ IFAB : oh ~PE tl. 

; 2096 1 INAM : $SNAM_DECL 

; 2097 214 NAMRSS : SBBLOCKENAMSC _MAXRSS], 

; 2098 215 STATUS; 

; 2099 § 16 

; 2100 17 IF .FILE_DESCCOSCS$W_LENGTH] EQL 0 

3 2101 2218 2 THEN RETURN TRUE; 

3 O 2219 § | 
: 0 P 2220 SFAB_INIT(FAB=IFAB, 

: 04 P 2221 2 NAM=INAM 

> 2105 P 320 2 NS=. FILE DESCEDSC$W_LENGTH] 

> 2106 P 2203 2 FNA=.FILE-DESCLDSC$A_POINTERI, 

: 7 P 2224 2 DNM=". TXT’, 

F} 8 2225 2 CTX=MAIL$_OPENIN); 

; 9 2226 § 

: 0 P 2227 SNAM_INIT(NAM=INAM, 

3 P 2228 2 RSS=NAMSC MAXRSS, 

; P $565 2 RSA=NAMRSS, 

: P $$ ? 3 ES ScNAMSC MAXRSS, 

; 2032 

3 2235 2 

; $$te 

3 35 

; $$3$ 

: 37 

; 238 § 

: +44 

: 40 § 

; 241 

3 242 1 


ee a ee ee et a st = ts YS SS Ss SS 


Rononononon 2 2 a = 000 
VEUN @O0ORNOULWN— 


POPSPOPININININININPIPYINININYPINPINPININOPNPoNPofnfnofry 


IF_.STATUS 
THEN BEGIN 
MAILSG_CNCTECNCT BFILRAT] = - EABPE ABS. RAT 
MAILSG_CNCTECNCT B_FILRFMI = .1FABLFABSB_ REMI; 
SCLOSE (FAB=IF AB); 
STRSCOPY DX(.FILE_DESCUTILSGETF ILENAME (IF AB)) ; 
RETURN .STATUS | 


54 58 54 2E€ 02041 P.AFR: .ASCII \.TXT\ ; 


; Routine Size: 176 bytes, Routine Base: $CODE$ + 2045 


ae 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep 4 01:0 VAX=-11 Bliss=-32 V4.0-742 Page 95. 
v04=001 14-Sep 71382 9}: 9}: 98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 . (29) | 
007¢ 000 .ENTRY MAILSLOOKUP_FILE, Save R2,R3,R4,R5,R6 : 2193. 
5E FESO «OCE C9 03 ; MOVAB mS tkpy SP : 
Ac D0 000 MOVL  FILE_DESC, R6 + 2217 
6 B 9008 TSTW = (R6) : 
4 12 00000 BNEQ 1$ : 
50 01 pO a0 MOVL #1, RO : 2218 
Py | 
0050 =F 00 6E . 00 s 0918 1$: MOVCS #0, (SP), #0, #80, SRMS_PTR > 2225 
é | 
BO AD 5083 BF 80 O01¢ MOVW #20683. sams PTR : 
C6 AD 2 0 MOVB SRMS_PTRI2 : 
C8 AD 007E109A BF p0 00 6 MOVL 1856 of 786: “Sans PTR+24 : 
CF AD 2 9 MOVB ; $RM : 
D8 AD FFSO 36 CD 3 00 MOVAB INAM SAAS + ; 
DC AD 04 A6 DO 000 MOVL  4(R6S, SRMS_PTR+44 : | 
EO AD BC AF 4 003D MOVAB P.AFR. $RMS~PTR+48 ; 
£4 AD 6 90 00042 MOVB (R6) *$RMS reibese ; 
—5 AD 4 90 00046 MOVB $RMS_PTR+53 ; | 
0060 &8F 00 6E eee 00 2c S00GA MOVCS 70° (SP); #0, #96, SRMS_PTR : soah 
FFSO CD 6002 8F BO 00054 MOVW 424578. $RMS_PTR : 
FF52 «CD O1 BE 00058 EGR #1. SRS PIRT : | 
FF54 = CD 6E 9E 0006 MOVAB ARES. SANs PTR+4 : 
FFSA CD 01 8E 00065 MNEGB ne sane PTR#10 : 
FF5C CD 6E 9E 0006A MOVAB NAMRSS, SRMS_PTR+12 ; 
0U0000006 00 9F O006F PUSHAB UT IcSREPORT _T0_ERROR + 2233 
BO AD 9F 00075 PUSHAB IF ; 
000000006 00 92 FB 00078 CALLS 2. § SYSSOPEN F 
52 50 DO 0007F MOVL Tys F 
08 52 £9 00082 BLBC ~— STAT > 2234 
00000000" 00 CE AD BO 0008 MOVW STATUS. CMAILSG. CNCT+128 : 2236 
BO AD 9F 0008D 2$: PUSHAB IFAB : 2239 
000000006 00 01 FB 00090 CALLS #1, SYSSCLOSE ; 
BO AD 9F 00097 PUSHAB IFAB > 2240 
000000006 00 01 FB OO09A CALLS #1, UTILSGETFILENAME : 
50 DD OO0A1 PUSHL RO ; 
56 DD OO0A3 PUSHL R6 ; 
000000006 00 08 FB OOOAS CALLS #2, STRSCOPY_DxX : 
50 52 DO OOOAC MOVL STATUS, RO + 2241 
04 OOOAF RET + 2242 
} 


So 
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MO OBNOUESWN —“OVOONAUSWNO0OO~ 
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PERSONAL MAIL UTILITY 


ROUT INE SEND_SELF_IF (PERM_FLAG) = 
| FUNCTIONAL DESCRIPTION: 


i This routine adds the sender's name to the end of the ‘to’ List 
} if (.perm_flag and not /noself) or /self. 


STATUS; 


STATUS = CLISPRES 
IF .STATUS EQL CL 
OR_ .STATUS EQ 
THEN RETURN . 


IF .STATUS 
OR .PERM_FLAG 
THEN BEGIN 
IF .MAILS$Q_TOCDSC$W_LENGTH] NEQ 0 
THEN STRSAPPENDTMAIL$Q_TO,COMMA DESC); 
STRSAPPEND (MAIL$Q_TO,MAILSO_USERNAME) ; 


ND; 
—- (.STATUS OR .PERM_FLAG) 


001C 00000 SEND_SELF_IF: 
QORD 


0 Save R2,R3,R4 
54 000000006 00 9€ 00002 MOVAB STRSAPPEND. R4 
53 00000009" 00 9€ 90009 OVAB  MAIL$Q_TO, R3 
EOD3 CF 9F 00010 PUSHAB SD_SELF 
000000006 00 o1 F 0014 CALLS #17 CLISPRESENT 
52 0 bod 0001B MOVL RO. STATUS 
000000006 &F 52 1 O01 CMPL STATUS, #CLIS_NEGATED 
09 13 000 BEQL $ 
000000006 8F 2 01 00027 CMPL TATUS, #CLIS$_LOCNEG 
04 12 000 BNE 
50 52 DO 00030 1$ MOVL STATUS, RO 
04 0 RET 
04 52 8 4 2$ BLBS STATUS, 3$ 
15 04 aC E9 00037 BLBC PERM FLAG, 5$ 
é 83 0038 3$ TSTW  MAILS$Q_TO 
09 1 99 D BEQL 
DEDO cf 9F F PUSHAB COMMA_DESC 
DD 0004 PUSHL R 
64 02 FB 004 CALLS #2, STRSAPPEND 
E8 AS 9F 00048 4$ PUSHAB MAIL$Q_USERNAME 
53 DD 00048 PUSHL 
$4 02 FB 4D CALLS #2, STRSAPPEND 
2 04 AC c9 20 5$ BISL PERM_FLAG, STATUS, RO 


N 4 
16-Sep-1984 01:01: VAX-11 Bliss=32_V4.0-742 P 
1073881 $8e 93:03:98 DISKSVMSMASTER: CMAIL.SRCIMAIL.B32;2 
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Routine Base: 


86 bytes, 


; Routine Size: 


5 

MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1b-se “1984 01:01: VAX-11 Bliss-32_ V4.0-742 Page 98 

v04=001 Ve=Sep-198 12:42:50 DISKSVMEMASTERSEMAIL SRCIMAIL.032;2 °° c315, 
‘ $9 1 GLOBAL ROUTINE MAILSCMD_REPLY = | : 
$ r i FUNCTIONAL DESCRIPTION: | : 
7 i This routine is the REPLY command action routine and is called | : 
Z a to send a message to the sender of the current message. : 
6 ? i INPUTS: ; 
6 ! Current message context. | ; 
| QUTPUTS: | : 
: Message sent to sender of current message. : 
BEGIN | 
LOCAL | ; 
EXTRACT_FLAG : 
EXTFAB = $FAB_DECL, : 
EXTRAB : $RAB_DECL, : 

EXTNAM : SNAM_DECL, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
E 
é NAMBUF : SOO. UCKLEANSC MAXRSS], 
2 OUTDESC : VECTORL2,LONG), | 
MORE_FLAG | 
PUT STATUS | 
SENB_STATUS : VOLATILE; 
2 


5 fi REPLY_HANDLER (SIGARG,MECHARG,ENBL) = 


SSeS seS SSS. 


AV LESELEAEASSS SSNS ARANISSSIFTFERIS Se 


SIGARG : REF $BBLOCK, 
ENBL : REF VECTORL,LONG); 


BIND 
RETSTS = ENBL(1] : REF VECTORC,LONG); 
| 


ETSTSCO] = .SIGARGCCHFSL_S1G_NAMEJ; 
ETURN SS$_RESIGNAL 


Be Ge Se Ge Se Ge Ge Ge Se Se Ge Fee Oe Oe Se Se Ge Oe Oe Oe Oe Se Ge Se Oe Se Ge Se Oe OHS Se Se oe HSH Se Sees 


POPEPORENINININOPOP NOP Nononononofnonononony 


ec ee DD ee 8 ee ed ed ed 


ooo 


POPIPOPMPOPOPYNIPINIANO NON N NN NoMononononesfnononononononopoper oforonorfororfronon 
bee) | 
w —Ow0c 
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CGDOCOCGOOSOSSOCOODOOOO0O0O0OWBWMMOMMmcd 
DNAWVEWN (OVO ONAOVUVESWN “OOONOUS 


R 
R 
E 


0000 00000 REPLY_HANDLER: 
WOR 


Save ~ ee : $e | 

51 oc AC 04 C1 0000 ADDL3 #4 L, R 2 2304 | 
50 04 AC DO 0000 MOVL  SIGARG, RO > 2306 | 

00 8} 04 £0 pO 900 MOVE 4<RO). aQ(RI : | 

0 0918 8F 3C¢ 0001 MOVZWL #2328, RO : 3307 

04 0001 RET : 2308 | 


Routine Size: 22 bytes, Routine Base: $CODE$ + 2148 
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i 
: 
: 


16-Sep-1984 01: 
b-Sep-19 4 9 : 


ENABLE REPLY eHANOLER (SEND STATUS); 


23:38 bt Sksv 


SEND_ ST 

PUT STAT “paRSE EDIT_@ ALC cul EDITOUALLE LREPLY_EDITJ); 
CLIFLAGS| cAS T_FLAG] = CCISPRESENTTSD 

EXTRACT _F he tL PSPRESENT (Sp SEXTRACTOS 

IF .CLITEX Xt ACT 


$-32 V4.0-742 
TER: CMAIL.SRCIMAIL .B32;2 


AND” (( EXTRACT _FLAG Wed cLis. NEGATED) AND (.EXTRACT_FLAG NEQ CLI$_LOCNEG)) 


THEN EXTRACT_FCAG = 
i Disable /extract if explicit /noedit 
ir PUT ~STATUS EQL cLis LOCNEG 
OR ~PUT_STATUS EQL CLIS_NEGATED 
THEN EXTRACT _F e's FALSE; 
If CLISGET. VALUETSD _REPLF, COMMAND _DESC) 


EXTRACT_FLAG = FALS 
IF AERR RATLSLOOKUP_Fi FE LE (COMMAND _DESC);, 


TRUE) ; 
END; 
/EXTRACT implies /edit 


if .EXTRACT_FLAG 
THEN CLIFLAGSCEDIT_FLAG] = 1; 


i Get the sender and subject of the current message. 
i as the addressee of the new message. 


MAILSGET tik coli see 


'Force editting 


Use the sender's name 


'Get List of cluster nodes 


and use it 


IF _E oo SGL_FLAGSCMAIF_V_ISAM] 
THE MAICSINFO_1_MSG(0,MAIL$Q_SUBJ,0,0,0,MAIL$Q_TO) 
ELSE MAILSINEO “MSG(MAIL$Q_TO, 
MAIL$Q_SUBJ));, 
SIGNAL. STATUS); RETURN TRUE); 
SEND_SELF rif MAILSL_USRSYSBUFCVMD_V_SELFREPLY); 
MAILSINI aADDR(MAIL $G-CN 
IF_ERR( MAILSADD ADDR (RAIL So TO,MAIL$G_CNCT);, 
IF NOT .MAILSGL_FLAGSCMAIF 7. ISAM) 
acrunttt MATLSREVIND *nsGC) 
RAL RUT AUPuL ase stinns. mates. MAIL$Q_TO); 
MAILSNET_END_USERS(MAIL$G_C Di 
IF .MAILSGL_FLAGSCMAIF_V Cire 
THEN RETURN SIONAL TMAILS" CF DABORT) ; 
! If a subject was specified in the original message, add a ‘'RE:"’ 
as the subject of the new message. Otherwise, just prompt for a subject. 
IF .MAIL$Q_SUBJCDSCS$W_LENGTH] NEQ 0 
THEN BEGIN 


! If not already ‘'RE:"’ 


IF 7 -MAIL$Q_SUBJCDSCS$A pornrer)) NEQ ‘RE: ' 
THEN STRSTONCAT(MAILSQ S$ 
DESCRI IPT 7th RE: '), 
MAIL$Q SUBJ). 
BAILSFILTER. OUTPUT (MAILSFAO_GETMSG(MAIL$_MAIL20,MAIL$Q_SUBJ)); 


Page 99 
9° 31) 


MA 


MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-5 
v04-001 14-$ 


seo 


9-1984 01:01: VAX=11 Bliss-32_v4.0-742 100 
Ory ORS $oi0956 | PERKSUMGHASTERSCMAIC. GREIMAIL.032;2 Page 100 


; 28 7 ELSE BEGIN 

; 68 IF MAILSGET INPUT (MAILSQ_ SUBJ ,MAILSGETMSG(MAIL$_ISUB30)) EQL RMS$_EOF 

; §5 $3 THEN RETURN TRUE; 

: 71 OIF MALL CL *FLAGSCMAIF_V_CTRLCFLI 

; 37 t¢ , _ THEN RETURN SIGNAL TMRILS. SENDABORT) ; | 
; 4 re If /EXTRACT, extract the message out to a temporary file 

: 2261 26 if .EXTRACT_FLAG | 
; 6¢ 7 THEN BEGI | 
3 226 P 2378 SFAB_INIT(FAB=EXTFAB 

> 2264 P 2379 FNS=.T MPF ILE! DESCCDSCSW_LENGTH] | 
; 265 P 80 ENA= , TMPFILE1 DESC DSCSA-POINTERS, | 
: $0 p 5388 mt | 
Py | 
; 269 4 38 CTX=MAILS  OPENOUT 
H 4 = ° 

; rea P $386 FAC=PUT, 

: 37 P 2387 FOP=SQ0. 

; oe $389 NAM=EXTNAM) ; 

> 2275 390 ; $XABPRO_INIT(XAB=TMP_XAB) ; 

Be Bh} MAMMOTH Peo 

Be PRG Eiceamest 

; 2280 P ate: ESS=NAMSC MAXRSS, | 
Bp ges aramg: 
; 2988 P 2398 $RAB ~INITCRABSENTRAB | 
; 3285 p 2400 CTX=MAILS GPENOUT, | 
e =T 

; 2087 5408 UST=MAICSK. INBUFF SZ); 

: $585 P 2404 IF _LERR(SCREATE (FAB= EXTEAB, ERR=UTILSREPORT_IO_ERROR);, 

; 2991 rtf RETURN TRUE); 
; 33 p <0? IF ~ERR(SCONNECT (RAB=EXTRAB -ERR=UT UTILSREPORT_10_ERROR) ;, | 
: 2294 P 2409 CLOSE (FABSERTFAB) : 

; 236 $19 RETURN TRUE); 

: 44 ret C~py the message text to the temporary file 

: 2299 414 EXTRABCRABSL_ CTX] = MAILS_WRITE 

3 2300 415 PUT STATUS ="MAILSEXTRACT “MESSAGE C/, EXTRAB); 

; 1 416 IF NOT .PUT_STATUS 

: 0¢ 417 & THEN BEGIN 

3 230 418 4 EXTFABLFAB$V_DLT) = 1; 

3 2306 419 & $C LOSE (FAB=ERTFAB) ; 

; 305 4 : 4 RETU URN TRUE; 

; $09 4 é ; SCL Of EABSEX 

; 2308 4 STRSCOPY ADK {COMMAND _DESC, TMPFILE1_DESC); 


1h- red ' 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 01: VAX-11 Bliss-32 V4.0-742 Page 101 MA 
v04-001 71982 93:9 42: £98 DISK$V nen ASTER: CMAIL.SRCIMAIL.B32;2 ° a) vo 
; 2309 424 ND; : 
; 10 425 ! ’ 3 
; 1} ri § Get the text of the new message and send it : 
1§ 428 2 GET_SEND_MSG(COMMAND,DESC) ; ; 
; 15 430 i If /EXTRACT, delete the temp file 
: 13 4 é if .EXTRACT_FLAG : 
: 2318 4 THEN BEGIN : 
: 2319 434 EXTFABCFABSV_DLT) = 1; : 
: 2320 435 EXTFAB FABSY-NAR) = 1: ; 
; 1 436 EXTFABLFABSL-CTX) = MAIL$_OPENIN; ; 
; é 437 SOPEN(FAB=EXTFAB, ERR=UTILSREPORT 10_ERROR); | ; 
; é 438 XTFABCFABSL_CTX) = MAIL$ _CLOSEIN: ~ : 
; 3 439 SCLOSE(FAB= ERTFAB,ERR=UTICSREPORT10_ERROR); ; 
; $358 ek q i af full t. fl lied | ; 
3 successfu sent, ag message as replie ; 
: 2328 22§ . . . : : 
; 329 shud - SEND _STATUS | ; 
3 2330 445 RAILSGL _FLAGSCMAIF_V_ISAM] | : 
; 331 aug THEN, “bei | ; 
3 2338 gag = MAILSL_CURMSGCMMB_T_HDREC] + $BYTEOFFSET(MFR_T_DATA) : S$BBLOCK; ; 
; $330 2450 MMHCMMH_V_REPLIED] = TRUE; : 
> 2336 2451 MAILSUPDATE._1 1_MSGQ); | ; 
3; 2537 Steg F 3 
; 2338 245 RETURN ” FRUE | ; 
: 2339 2454 1€ | : 
| : 


20 3A 45 52 02161 P.AFT: .ASCII \RE: \ ; 
02165 LKB 3 
00000004 02168 P.AFS: <LONG 4 : 
00000000' 0216¢ "ADDRESS P.AFT : 
SRMS_PTR= TMP_XAB 

OFFC 00000 ENTRY MAILSCMD REPLY, Save R2,R3,R4,R5,R6,R7.RB,~ ; 2269 
58 000000006 00 9E 00002 MOVAB OF ITSREFORT 10_ERROR, R11 ; | 
5A 1B8 CF 9E 00009 MOVAB PARSE _EDIT_QuaC, R10 3 
39 00000000" 60 9E 0000 MOVAB COMMAND DESC, RO : | 
58 00000000' 00 9€ 0001 MOVAB MA LSa SuBJ, R8 : 

SE FEOG CE 9E 0001C MOVAB -508(SP), SP ; 
7E D4 900 1 LRL ND_STATUS : 2286 | 
6D O2FC CF DE 000 ; MOVAL ) : 
6E 4 DO 000 MOVL H, SENDS TUS : 2311 | 
7E FES8 C9 01 1 EF 000 EXTZV a, cei’ EDITQUAL, -(SP) : 2312. 
6A gi FB 00 CALLS PARSE EDIT ; 
57 0 pO 000 MOVL RO: PUT T STAT pee 
E0SC CF SF 00038 PUSHAB sp 4 : 2313. 
000000006 00 61 FB 0003C CALLS ~ CLISPRESENT : | 


Se = 


5 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 18-5 Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 102 
yoeeoot 14-Sep e19 3b 93:95 :98 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 ’ Rite 
FESO. C9 01 01 50 F0 0048 INSV RO, #1, #1, CLIFLAGS : 
DF66 «CF OOF O004A PUSHAB SD_EXTRACT ; 2314 
000000006 00 1 Ff 04g CALLS #17 CU TSSRESENT : 
§ 0 pO 0005 MOVL RO, EX XTRACT _FLAG : 
1 FESC £9 E9 00058 BLBC CLI_EXTRA 6 + 2315 
000000006 8F 6 b 9040 cHPL XTRACT ete #CLIS_NEGATED ; 2316 
000000006 8F 55 D 9066 CMPL jpn FLAG, #CLIS_LOCNEG : | 
1 06D BEQL $ : 
56 1 D 006 MOVL EXTRACT_FLAG : 2317) 
000000006 &F 7 D4 0078 1$ CPL put STATUS, “WCLIS. LOCNEG ; 2321 
000000006 8F 95 bf 0078 CMPL §_ PUT_STATUS, #CLIS_NEGATED $ 2322) 
ge 12 0008 BNEQ 4 ; 
§ D4 00084 2s CLRL = EXTRACT_FLAG > 2323) 
59 OD Ht $ PUSHL R9 3 2324 | 
DFDS §6CF O9F (00088 PUSHAB SD_REPLF : 
000000006 00 92 FB 9008¢ CALLS #27 CLISGET_VALUE ; | 
0c 5¢ £9 0009 BLBC —OsséR : | 
56 D4 00096 CLRL —- EXTRACT_FLAG t 2326. 
59 DD 00098 PUSHL > 2328 | 
1D10 CA 01 FB OO09A CALLS #1, MAILSLOOKUP_FILE ; 
78 50 £9 0009F BLBC STAT : | 
05 56 OED O00K2 4$: BLBC EXTRACT_FLAG, 5$ > 2333) 
FESO. 9 01 88 OOOA BISB2 a. CLIFLAGS > 2334) 
1983 CA 00 FB OOOAA 5$: CALLS RAIL SGET CLUNODES : 2339) 
14 FF70 CB €9 OOOAF BLBC RALLSCL LAGS, 6$ : 2344. 
F8 AS SF 000B4 PUSHAB AIL Sec TO" ; 
7E 7C 00087 CLROQ SP) : 
7E D4 00089 CLRL = (SP) ; | 
58 DD 000BB PUSHL RB F 
7E D4 0008D CLRL. = (SP) : 
000000006 00 06 FB O00BF CALLS #6, MAILSINFO_I_MSG : | 
OC 11 000C6 BRB 7$ ; | 
58 DD O00C8 6$ PUSHL ; | 
F8 AB OF OOOCA PUSHAB MAIL$Q_TO ; 
000000006 00 08 FB 900¢D CALLS #2, MATLSINFO_MSG : 
08 50 £8 000D4 7$: BLBS STATUS, 8$ : | 
50 DD 00007 PUSHL STATUS : | 
000000006 00 o1 FB 99003 CALLS #1, LIBSSIGNAL : | 
8 11 000E0 BRB $5” : 
50 000000006 00 DO O00E2 8s: MOVL  MAILSL_USRSYSBUF, RO > 2345. 
7E 1F =A 01 01 EF OO0E9 EXTZV #1, #1, 31(RO), -(SP) ; | 
co OCCA 01 FB OOEF CALLS #1, SEND SELF_IF ; 
E8 AB 9F OOOF4 PUSHAB MAILSG cACT : 2346. 
000000006 00 01 FB OO0OF7 CALLS MATLSINI_ADDR : 
E8 AB OF OOOFE PUSHAB mALLee CNCT : 2350. 
F8 AB 9F 00101 PUSHAB MAIL$Q~ F 
000000006 00 Qe F ot CALLS #2 MATLSADD _ADOR 3 
F 50 €8 001 BLBS = STATUS, ; | 
7 FF70 (CB €8 001 § BLBS MAILSaL FCAGS, 9$ ; 
000000006 00 00 FB 011 CALLS 40 MAICSREWIND_MSG : 
0208 : O11A 98: BRW Q § : | 
F8 AS 9F 0011D 10$:  PUSHAB MAIL$Q_TO > 2351) 
OO7EDE10 8F DD 00120 PUSHL I 14384 ; 
000000006 00 gi FB 00126 CALLS #1, MAILSGETMSG ; 
0 DD 00120 PUSHL RO ; 
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000000006 00 03 FB 0012F CALLS #2, MAILSPUT_OUTPUT ; ; 
E8 AS 9F 001 6 PUSHAB MAIL$G_CNCT + 2352 : 
000000006 09 01 F 1 CALLS #1, MATLSNET_END_USERS : : 
4 FF71 C8 EB 0014 BLBS § MAILS$GL_FLAGS+1,~14$ + 2353 ; 
: BS 0014 TSTW  MAIL$Q_SUBJ + 2359 : 
13 0014 BEQL 128 : ; 
50 04 AB dO 0149 MOVL MAIL$Q SUB +4 RO + 2361 ; 
203A4552 BF 60 D} O40 CPL (RO), 9540689746 : ; 
4 dd 0156 PUSHL RB : 236 ; 
FE9C ct 9F 001 PUSHAB  P.AFS : 2363. 
4 DD 91 C PUSHL Rg + 2362. 
000000006 00 03 FB O13 saa CALLS #3, STRSCONCAT pant 
OO7EDE18 BF DD 00167 PUSHL #8314392 : | 
000000006 00 02 FB 0016p CALLS "2, MAIL SFAO_GETMSG | 
000000006 00 2 FB 20170 CALLS Hl MAILSF ILTER_OUTPUT : wens 
OO7EDDF8 8F DD OO17F 128 PUSHL #8314360 : 2368) 
000000006 00 01 FB 00185 CALLS #1, MAILSGETMSG : | 
28 bb OOTaE pust ORB aoe ; 
000000006 00 98 FR 90190 CALLS #2, MAILSGET_INPUT : 
0001827A BF 50 D1 00197 CMPL RO #98938 : | 
ore 34 OotAG eet ie tas 
OE FF71 CB €9 SOTAS 13$:  BLBC  MAILSGL_FLAGS+1, 15$ : 2371. 
007E805A 8F DD OO1ARB 14$:  PUSHL #8290392 2372 | 
000000006 00 01 FB QOTAE CALLS #1, LIBSSIGNAL 
03 ial i 00186 15$: BLBS EXTRACT FLAG, 16$ : 2376 
00 6E 00 c 0018¢ 16$:  MOVCS #0, (SP), #0, #80, SRMS_PTR 2388 | 
a i a fa 
4S Ga ee hee tire ee 
C8 AD OO7E10A2 4 DO 00108 MOVL  #82617947 $SRMS _PTR+24 3 | 
si A FER fo SP GUIEG vam Tro ius dana ihe 3 
D8 AD FFOC CD 9E OO1EC MOVAB EXTRAM, $RMS_PTR+40 : | 
DC AD FC A9 06 O1Fg MOVL TMPFILE1_DEST+4, S$RMS_PTR+44 : 
£4 AD FB Ad 6 1F MOVE TMPFILE1~DESC, $RMS_PTR+ F 
00 6E wie 08 ec Sire MOVCS #0, (SP)7 #0, #88, SRMS_PTR ; 2390 | 
FF74 C9 5813 8F BO 00206 MOVW #22547, $RMS_PTR : 
FF7C «C9 FF 4G 80 020 MOVW #-188, TMP _XAB+8 : 2391 
00 6E es 0 c 6 if MovcS #0, (SP), RO, #96, SRMS_PTR : 2396 | 
1 i 22 ee OM oa fe 
EID CD OC AE 9E O022A MOVAB NAMBUF, SRMS_PTR+4 : 
He Bo HERR RSE att anne Peat om 
GO 6E 00 2C 00238 MOVCS #0, (SP), #07 #68, SRMS_PTR > 2402. 
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FE6C D 42 : | 
FF6C CD 4401 &F B 4 MOVW #17409 SRMS_PTR ; 
4 AD OO7E10A F DO 0024¢ MOV. #826 794, $RAS_PTR+24 : | 
C AD 020 F : 4 MOVW off $RMS_PTR332 : 
6 Ad 6 AB 9E A MOVAB TMP_BUFF, SRMS_PTR+36 : 
AB AD BO AD 9E 0025F MOVAB EXTFAB, $RMS_PTR+60 : 
58 po 0 64 PUSHL R11 + 2405. 
BO AD 9F 66 PUSHAB EXTFAB : 
000000006 90 ; FB 0 : CALLS #2, SYSSCREATE : F 
A E9 00 LBC © STATUS, 18$ : ; 
B DD 0027 PUSHL R11 + 2410) : 
FF6C oF 9 ? PUSHAB EXTRAB : | : 
000000006 00 FB 7 CALLS #2, SYSS$CONNECT : $ 
1B ) £9 00 80 BLBC STATUS, 17$ : : 
84 AD 0O7E10D0 &F D0 028 MOVL #8261840, EXTRAB+24 + 2414 : 
FF6C CD «OF 00288 PUSHAB EXTRAB + 2415 ; 
1 DD 0028F PUSHL #1 : ; 
000000006 00 FB 00291 CALLS te MAILSEXTRACT_MESSAGE : ; 
57 50 D0 00298 MOVL RO, PUT STATUS : ; 
11 5 cs 0298 BLBS  PUf_STATUS, 19$ + 2416 
BS AD 80 8F 88 00 +3 17$:  BISB2 #128, EXTFAB+5 + 2418 
BO AD 9F OO2A PUSHAB EXTFAB > 2419 
000000006 00 Qi FB 002A6 CALLS #1, SYSSCLOSE : 
0 11 OO2AD 18$: BRB 22$ + 2420 F 
BO AD 9F OO2ZAF 19$: | PUSHAB EXTFAB + 2622 ; 
000000006 00 01 FB 002B2 CALLS #1, SYSS$CLOSE : F 
FB AD «OOF 90289 PUSHAB TMPFILE1_DESC + 2423 ; 
59 DD 002BC PUSHL 9 : ; 
000000006 00 0 FB 002BE CALLS #2, STRSCOPY_DX : ; 
59 DD boS¢ 20$: PUSHL R9 : 2428 5 
00000000v 00 or FB 00 ¢? CALLS #1, GET_SEND_MSG : ; 
0 6 E9 OO2CE BLBC EXTRACTIFLAG, 218 : 2432 
BS5 AD 00010080 8F C8 00201 BISL2 #65664, EXTFAB+7 + 2435 
CB AD 007E109A BF DO 00209 MOVL #8261786, EXTFAB+24 + 2436 
5B OD O02E| PUSHL R11 + 2437 
BO AD 9F OU2E3 PUSHAB EXTFAB : 
000000006 00 02 FB 00266 CALLS ae SYSSOPEN ; 
C8 AD 007E1050 8F DO 002ED OVL #8261712, EXTFAB+24 : 2438 
5B DD 002F5S PUSHL R11 : 2439 
BO AD 9F 002F7 PUSHAB EXTFAB ; 
000000006 00 02 FB OO2FA CALLS #2, SYSS$CLOSE ; 
1B of £9 90 01 21$:  BLBC SEND STATUS, 22$ + 2444 
16 FF 70 CB ED 00304 BLBC MALLSGL FLAGS, 22$ + 2445 
50 000000006 00 0000007 er ci 0 09 ADDL3 #119, MAILSL_CURMSG, RO : 2448 
6 3 8 0031 BISB2 #2, (R > 2450 
000000006 00 0 FB 0318 CALLS #0, MAILSUPDATE_I_MSG > 2451 
50 01 DO OO31F 228:  MOVL #1. RO ; 455 | 
04 RET > 2654 
00 238: . WORD Save nothing 7 2284 | 
50 08 ac OD MOVL (AP), RO : 
50 04 Ad p 0 9 MOVL 4 (RO); RO : 
FEOQO §=6—CO OOF D PUSHAB SEND_STATUS ; 
o1 DD 00 PUSHL #1 : | 
E DD PUSHL SP : | 
7E 04 aC D MOV. 4(AP), -(SP) ; 
FC9D CCF 03 FB 9 CALLS #3, REPLY_HANDLER ; | 
04 0053€ RET ; 
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; ; ‘3 GLOBAL ROUTINE MAILSCMD_SEND = 

3 4 438 | i FUNCTIONAL DESCRIPTION: 

; : 460 1! This routine is the SEND command action routine and is called to 

: ¢23 ! send a message to a user or users. 
; § 463 1 | INPUTS: 
; 0 464 1! 

: 1 465 1: 

; § re : } OUTPUTS: 

: Fy 465 1: Specitied file, or SYSSINPUT if none specified, is sent the 
: 2355 469 1! e addressee(s). 
; 28 470 1 !=- 

: a4 47] BEGIN 

> 2359 47 PARSE EDIT QUAL (. ig) EDITQUALCF_SEND -011}); 
: 0 474 2 CLIFLAGSCLAST FLAG , CkISPRESERT(SD=L LAST); 

3 2361 475 CLISGET VALUETSD S$ COMMAND DESC); 

36¢ P 47 iF ERR MAILSLOOKOE FILE COMMAND _DESCS;, 

+ 2364 478 2 MAILSGL_FLAGSCMAIF V ATTACHMENT] = ft iSPRESENT (SD_ATTACHMENT) ; 

3 $03 rt ies pPAltseL. PLAGSCMATF _V_ATTACHMENT 

: 2367 2481 STRSCOPY_DX(MAILS$Q ATIDESC. COMMAND_DESC); 

3 2368 ge 3 STRSFREET_DX (COMMAND _D 

: 2369 483 2 END; 

: 2370 484 ! 

; $353 siee Get the name of the addressee(s) and add them to the addressee List 

; $3r6 2487 2 MAILSGET_CLUNODES(); Get List of cluster nodes 

> 2374 2488 2 MAILSGET~INPUT(MAIL$Q TO MAILSGETMSG(MAILS_ 1SUB20)) ; 

: 2375 2489 2 IF MAIL Sa TOCDSC$u LENGTH) EQL 0 If nothing entered, quit 

3 $378 2490 THEN RET OE; 

: 2377 2491 MAILSUPCASE OCRAIL -! 
3; 2378 249 MAILSINI_ADBR(MAILSG 

3 2379 249 IF NOT 1 CRE ECK SEND (MATL SADD- “ADDR(MAIL$Q_TO,MAIL$G_CNCT)) 

; 2380 249% THEN RETORN 

: 2381 2495 IF SEND. SELF_IF(.MAICSL_USRSYSBUFCVMD_V_SELFSEND1) 

: 33 3496 TH THER TF ROT CHECK SEND (MAILSADD MADDR MAIL $0 _USERNAME ,MAIL$G_CNCT)) | 
: 384 2498 NAILSNET _END_USERS(MAIL$G_CNCT); 

: 384 300 | Get the subject and text of the message and send it 

: 3386 208 iF NOT CLISGET VALUE(SD_ SUBJECT MAILSQ. SUBJ) | 
3: 2389 50 THEN IF NOT MA eels INPUT (MAIL$Q_ SUBJ ,MAILSGETMSG(MAIL$_1ISUB30) ) 

: 90 304 THEN RETURN TRUE 

; 9 306 GET_SEND_MSG(COMMAND_DESC); | 
: 3304 508 2 RETURN TRUE 

+ 2395 509 1 END; 


——_— 
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So OOoOOoOoOoooO 


7E FES8 384 
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DBE? 
FF7A C2 ? 


we 


FF7A 


AO 
000000006 00 


0C000000G 0 
1983 
OO7EDDFO 


000000006 00 
000000006 00 


FO 
FO 


2$: BLBC 


7E 1F = =6A0 
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YS FP NOCOMOMO UIP OF OUNAOVIMOWOOW10 FB NOON NOON VIVIOM COON COOCOC0O0O 
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COMMAND DESC, R4 

PARSE EDIT -QUAL, R3 

MAILS T0,"R 

40, cl! EDI TOUAL, -(SP) 
PAAse _EBIT 

n> “tC I sppesent 

RO, #1, #1, CLIFLAGS 

SD_SEND1 

#2; CLISGET_VALUE 

HP MAILSLOOKUP_F ILE 

sp _AT TTACHMENT 


; CLISPRE SENT 
ny: MAILS$GL_FLAGS+2 
#3, Aaivsac _FLAGS+2, 1$ 


mitse ATTDESC 
, STRSCOPY_DX 


44 

#1, STRSFREE1_DX 

#0. ma $GET_CLUNODES 
#8314 


#1, MAILSGETMSG 
RO 

i 

#2, MAILSGET_INPUT 
MAIL$Q_TO 


R2 
#1, MAILSUPCASE_Q 
MAIL$G_CNCT 
#1, MATLSINI_ADDR 
$5_CNCT 
MAILSADD_ADDR 

#1, CHECK_SEND 
MALLS PRL es RO 
#0, =(SP) 
#1. SEND” SELF _IF 


MAIL$G_CNCT 
MAIL$Q"USERNAME 


ra 
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69 92 FB QOOEA CALLS , MAILSADD_ADDR ; 
DD OOOED PUSHL ; 
$A Q1 FB OE CALLS » CHECK_SEND ; 
FO A 5 sre 3$: PUSHAB Rute NCT + 2498 
000000006 00 01 FB O0F8 CALLS MATLSNET _END_USERS : 
08 A2 9F OOOFF PUSHAB maise SUBJ + 2502 
DC47 CFOS «00102 PUSHAB sp _SUBJECT : 
66 02 FB 00106 CALLS #27 CLISGET_VALUE ; | 
OO7EDDF8 BF DD 0010 PUSHL RO, EE + 2503 
67 o1 FB 0011 CALLS ai MAILSGETMSG : 
og ad DP oot? SUSHAB RAIL$O. SUBJ : 
48 03 FB O11A CALLS #2, MATLSGET_INPUT : 
09 50 €9 0011D BLBC =._«aRO,._ S$ ; 
54 DD 00120 4$: PUSHL R4 + 2506 
00000000v 00 01 FB 001 CALLS #1, GET_SEND_MSG ; 
50 01 DO 00129 5s: MOVL #1. RO + 2508 
04 0012¢ RET : 2509 


; Routine Size. 301 bytes, Routine Base: SCODE$S + 24AF 
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; 2398 11 1 ROUTINE GET_SE!>_MSG(FILE_DESC) = 
; 2399 \§ 1 e+ 
3 rh a7 ! : FUNCTIONAL DESCRIPTION: 
3 re 2}? ! This routine is called to complete the sending of a message file. 
; 2404 219 1 ! INPUTS: 
3: 2405 518 1! 
; rey 244 : FILE_DESC = Message file name descriptor. | 
; 2408 Ser 1! EDIT_FLAG = 1 if message file is to be edited before sending. 
3; 2409 5 ¢ 1; = 0 if message file is not to be edited before sending. 
: 2410 5 1! LAST_FLAG = 1 if last message sent is to be sent again. 
3: 2411 524 1! = 0 if new message is to be sent. 
; stig 325 1! 
; sc) 5 § 1 ! OUTPUTS: 
3 2414 5 1! 
3 2415 $256 1} Message file is sent to all addressee(s) in addressee List. 
: 2416 44 1 !-- 
3; 2417 2530 BEGIN 
3 seis see! MAP 
: 2419 235 FILE_DESC: REF BLOCKC,BYTE); ! File name descriptor 
: 2420 see LOCAL ; 
3: 2421 534 STATUS; ! Routine status 
; $t56 2535 
3; 24 2536 ! : 
> 2424 2537 § ! If the /LAST qualifier was specified and the last fiie is still open, 
; ses? 3335 § 1 send it. 
3: 2427 540 § IF .CLIFLAGSCLAST_FLAG) AND .TMP_FABCFABSW_IFI] NEQ 0 ! If Last file specified 
; sess 2541 THEN BEGIN 
3 2429 $206 3 MAILSSEND_ADDR(MAIL$G_CNCT); 'Send the previous file 
: 2430 2543 4 IF (IF .MAILSGL_FLAGSCMAIF_V_ISAM] 
3 2431 2544 4 THEN MATLSREWIND_1-MSG() 
; RT 2545 4 ELSE MAILSREWIND_MSG()) 
3: 243 2546 THEN 
> 2434 sect MAILSPUT_OUTPUT (MAILSGETMSG(MAILS_PRESRET) ,0); 
5 tH 254 RETURN TRUE 
3: 2436 $208 ND; 
3: 2437 550 : 
3; 2438 551 ! Close any previously sent file and, depending on whether /EDIT was 
: tih 226 specified, either call an editor or just prompt for the input message text. 
5 2641 554 2 SCLOSE(FAB=TMP_FAB); ! Close any other file 
> 2446 P 2555 2 $FAB_INIT(FAB=TMP_FAB, ' 
: 244 P 228 DEQ= 
> 2444 P 255 ENS=. IMPFILE_DESCCDSCSW_LENGTH] 
> 2645 P 2558 FNA=. TMPFILE~DESCLDSCSA_POINTERS, 
3 2446 P 2559 =", TXT’ 
> 2647 P 2560 CTX=MAIL$_OPENOUT, 
3: 2448 P 2561 XAB=TMP_XAB, 
3 2449 P 266 NAM=TMP_NAM 
> 2450 P 256 FOP=(SQ0, TMD), 
3: 2451 P 2564 RAT=CR 
> 265 P 2565 RFM=VAR 
> 245 566 FAC=(GEf,PUT,BRO)); 
: 2454 56 
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491 2604 
49 2605 
&g 2606 
494 607 
495 608 
2496 2609 
ORR 
$499 3612 
500 261 
501 2614 
208 2615 
50 616 
504 617 
Bw 
309 620 
508 621 
509 6 § 
$219 sos 
511 624 
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PROPIAAAIE I. AAA AAAI III AAA AAAI HUTT BB 


VAX/VMS PERSONAL PAIL UTILITY 


eee INIT (XAB=TMP_XAB) 


P_XABCXAB$W_PRO] ="TMP “bro; 


SNAM_ wen trip NAM, 


RSA=TMP_ESNAM BUF, 
RSS=NAMSC_MAXRSS 
ESA=TMP_ESNAM BUF, 
ESS=NAMSC_MAXRSS) ; 


SRAB_INIT(RAB=TMP_RAB, 
FAB= 


CTASMAICS OPENOUT, 
USZ=MAICS$K_INBUFFSZ); 


IF .CLIFLAGSCEDIT_FLAG) 
THEN BEGIN 


ELSE 


STATUS = MAILSEDIT(.FILE_DESC,TMPFILE_DESC); ! Call the editor 
IF _ .STATUS 
THEN BEGIN 


; Ensure we have delete access to the file. 
If SOPEN(FAB=TMP_ FAB, ERR=UTILSREPORT_I0_ERROR) 
TMP ete XABSW_PRO] = TMP PRO; 


TMP XABSL-UIC) = 
SCLOs ECFABSTNES FAG. ERR= UTILSREPORT_IO_ERROR); 
eT b PABLFABSV.. NAM 3 


' Set delete on close 
“THEN Status = SOPEN(FAB = TMP_FAB,ERR=UTILSREPORT_IO_ERROR); 
a THEN STATUS = SCONNECT(RAB = TMP_RAB,ERR=UTILSREPORT_IO_ERROR); 


TMP FAB assy DLT] = 1; 
IF [STATUS 


IF 


hae DESCCDSC$W_LENGTH] EQL 0 ! If no file specified 


BEGIN 
PPS arugtReATE Ce = TMP_FAB,ERR=UTILSREPORT_I0_ERROR); 
THEN STATUS = SCONNECT(RAB = TMP_RAB,ERR=UTILSREPORT_IO_ERROR); 

IF +STATUS THEN STATUS = MAILSENTER(TMP_RAB) ; 

ELSE BEGIN 
TMP_FAB[FABSB_FNS) = -FILE_DESCEDSC$W_LENGTH];, 
TMP~FABLFABSL_FNA] = .FILE-DESCLDSCSA_POINTER); 
TMP~FABLFABSV—TMD) = 6; ' Not a temp file 
TMP _FABLFABSV_PUT) = 0; ! and no PUT’ 
TMP-FABCFABSL-CTX] = MAIL$_OPENIN; 
TMP~RABLRABSL-CTX) = MAILS-OPENIN: 
STATUS : ean = TMP_FAB,ERR=UTILSREPORT_10_ERROR) ; 


I ATU 
oe THEN STATUS = SCONNECT(RAB = TMP_RAB,ERR=UTILSREPORT_1IO_ERROR); 
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; ig 625 ! If message text successfully obtained, then send it. Otherwise signal 
5 1 6 § ! the error. 
> 2514 6 ! 
: 2515 6 8 IF .STATUS 
; 218 6 T 
3 ' 6 9 ape MAILSSEND_ADDR(MAIL$G_CNCT) 
; $18 6 : IF ~STATUS EQL MAIL$_SENDABORT 
3 2 1 : ' SIGNAL (MAIL$_SENDABORT) ; 
3 2 § $ If user was previously reading a message, rewind it and display help message. 
; 2525 636 IF CIF .MAILSGL_FLAGSCMAIF_V_ISAM] 
> 2526 639 THEN MATLSREWIND_1°MSG() | 
; 2527 640 ELSE MAILSREWIND_MSG()) 
: 2528 641 g THEN | 
; 2¢ 662 MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_PRESRET) ,0); 
: $2 0 264 § | 
: 2531 2644 RETURN TRUE 
; 2532 2645 1 END; | 
54 58 54 2€ O25DC P.AFU: . ASCII \.TXT\ : 
SRMS_PTR= TMP_FAB 
SRMS_PTR= TMP_XAB 
SRMS_PTR= TMP~NAM 
SRMS_PTR= MAICSG_CNCT+646 
OFFC 00000 GET_SEND_MSG: | 
“WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 2511) 
5B 000000006 00 9€ 00002 MOVAB MAILSREWIND_MSG, R11 ; | 
5A 00000000G 00 9€E 00009 MOVAB MAILSREWIND_I_MSG, R10 3 
59 00000000G 00 9€E 00010 MOVAB MAILSSEND ADDR, R9 3 | 
2§ 00000000G 00 9€ 00017 MOVAB UTILSREPORT_IO_ERROR, R8 3 
57 00000000" 00 9E Boe tE MOVAB $RMS_PTR, R7 : 
56 00000000" 00 9€E 000 MOVAB TMP_FAB, R6 : 
22 FF2C C6 01 €1 0002C BBC #1, CLIFLAGS, 4$ > 2540 | 
02 A6 83 000 ¢ TSTW TMP _F AB+ 3 
1D 13 000 BEQL 4 ; 
FD7A § OF 999 7 PUSHAB MAIL$G_CNCT : 2542. 
69 1 FB 0038 CALLS #1, MATLSSEND_ADDR ; 
05 FDO02. ««C7_—«#E9:000 ; BLBC MAILSGL_FLAGS; 1$ > 2543 | 
6A 0 8 9 CALLS #0, MAICSREWIND_I_MSG 3 2544 | 
68 00 FB 8048 1$: FAPLS #0, MAILSREWIND_MSG : 2545 | 
03 4 4B 2$: BLBS RO, 3$ 3 
0189 1 0004E BRW 15$ : 
19E 31 00 2) 3$: BRi 14$ 3 
56 DD 00054 4$: PUSHL R6 3 2554 | 
000000006 00 01 FB 00056 CALLS #1, SYSSCLOSE ; | 
0050 = &F 0 6E 9 2c 020 MOVC #0, (SP), #0, #80, $RMS_PTR > 2566 | 
66 5003 Ht B0 B85 MOVW #20483, SRMS_PTR : 


dD 6 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:01: VAX-11 Bliss-32 V4.0-742 
v04-001 12-08-1382 93:03:98 DISKSVMSMASTER: (MAIL. SRCIMAIL.B32;2 
06 Nb 50 8F 9A O006A MOVZBL #80, SRMS_PTR+4 
16 AS 3 +4 it MOVW #3, SRMS_PTR+2 
1 Ab 4 F 0 ; MOVB = #67 SRMS_PTRe 2 
1 Ab OO7E10A F D0 007 MOVL @# 61 94, $RMS_PTR+24 
1E A6 020 F : 0080 MOVW #514, $RMS_PTRT30 
4 Ab 50 Ab 9E 000 MOVAB TMP_XAB, $RMS_PTR+36 
8 A6 AO A6 43 00 R MOVAB TMP_NAM, SRMS_ PTR+40 
C Ab poeg C6 D 4 MOVL TMPFILE DESC+%, SRMS_PTR+44 
0 A6 FF6 CF 33 096 MOVAB P.AFU, SRMS_PTR+4 
4 Ab oocc 6 9 4 MOVB TMPFILE DESC, $RMS_PTR+52 
5 Ab 04 90 OOOA MOVB #4, S$RMS_PTR+S 
00 6E ; 00 2c DOAG MOVCS #0, (SP) #0, #88, SRMS_PTR 
50 AG 5815 8F BO OOODAF MOVW #22547, $RMS_PTR 
58 AG FF44 BF 80 00085 MOVW #-188, TMP_XAB+8 
00 6E 00 2c 00088 MOVCS #0, (SP), BO, #96, SRMS_PTR 
AO Ab 000C 
AO Ab 6002 8F BO 000C4 MOVW #24578, $RMS_PTR 
A2 AG 01 BE OOOCA MNEGB #1, S$RMS_PTRF 
AS A FE2C C6 YE OOOCE MOVAB TMP_ESNAM_ BUF, SRMS_PTR+4 
AA Ab 01 BE 00004 MNEGB #1, $RMS_PTR+{0 
AC A6 FE2C C6 9E 000D8 MOVAB TMP_ESNAM_BUF , SRMS_PTR+12 
00 6£ 4 2c pO00E MOVCS #0, (SP), #0, #68, SRMS_PTR 
t 
67 4401 8F BO OO0E6 MOVW #17409, SRMS_PTR 
18 AZ OO7E10A2 B&F DO OO0EB MOVL #8261796 SRAS _PTR+24 
20 A7 020 8F B80 OOOF MOVW #512, SRMS_PTR#32 
24 COA? FEOO C7? 9E O00F9 MOVAB TMP_BUFF, SRMS_PTR+36 
3c A7 66 9E OOOFF MOVAB TMP_FAB $RMS_PTR+60 
52 04 AC 00 00103 MOVL  FILE_DESC, R2 
43 FF2C C6 €E9 00107 BLBC _— CLIFCAGS, 6$ 
OOCC C6 SF 0010C PUSHAB TMPFILE_DESC 
52 DD 00110 PUSHL R2 
000000006 00 02 FB 00112 CALLS #2, MAILSEDIT 
53 50 D0 00119 MOVL RO, STATUS 
26 53 £9 0011C BLBC STATUS, 5$ 
0140 8F 6B OO11F PUSHR #*M<R6.RB> 
000000006 00 02 FB 00123 CALLS #2, SYSSOPEN 
18 50 €9 0012A BLBC 
58 AG FF44 BF BO 001 p MOVW #-{88, TMP_XAB+8 
5C A6 D4 001 CLRL TMP_XAB+12 
0140 8F 6B 001 PUSHR #*MZR6,RB> 
000000006 00 02 FB 0013A CALLS #2, SYSSCLOSE 
07 Ab oi 88 00141 BISB2 #1. TMP FAB+7 
0S Ab 80 8F 0145 5$: BISB2 #128, TAP_FAB+S 
7F 53 £9 OO14A BLBC STATUS, 10$ 
32 11 00140 BRB 
6 BS OO14F 6$: TSTW (R2) 
gp 12 00151 BNEQ 7$ 
0140 F BB 00153 PUSHR #*M<R6,R8> 
000000006 09 08 BR 197 CALLS #2, SYSSCREATE 
5 DO 0015€ MOVL RO, STATUS 
Bh 53 £9 00161 C STATUS. 10$ 
0180 8F BB 00154 PUSHR #*M<R7_RB> 
000000006 99 02 FB 00168 CALLS 2, SYSS$CONNECT 
2 50 D0 0016 MOVL RO, STAT 
? 53 £9 00172 BLBC STATUS, 10$ 


“OOO UNSW 


SSeS e Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Bs Be Se Be Hs Be Be Se Se Se Fe Se Be Se Se Se Be Be Se Fe Fe Se Se Se Se Se Se Be Se Be Se Be Be Se 


; 2533 2646 1 


3; Routine Size: 526 bytes, Routine Base: 


SCODES + 25E0 


é 
MAILSMAIL VAX/VMS PERSONAL MAIL UTILITY 1h-s6 =1984 01:01: VAX=11 Bliss-32 V4.0-742 Page 113 
yo t Oot Eaten ee 9b: 0h es AS MCMASTERCMAIC GRE ImMAIL .032:2 2 cS33 | 
7 Dd 0017 PUSHL 7 ; 
000000006 00 i FB 177 CALLS #1, MAILSENTER : 
oe 62 90 001 5 7$ MOVB (R2), TMP_FAB+52 t 2614) 
Pas oe 04 Ae 00 001 MOVL  4(R2S, TMP FAB+44 + 2615. 
4 Ab 10 BA 00189 BICB2 #16, TMP_FAB+4 + 2616 | 
16 Ab 1 8A 00180 BICB2 #1, TMP _FAB+22 + 2617) 
1 ag 00761094 F pO 00191 MOVL @# 617 8, TMP_FAB+24 : 2618 
18 A? OO7E109A 8F DO 00199 MOVL #8261786. TMPTRAB+24 + 2619 
0140 &8F BB OO1A1 8$: PUSHR  #*M<R6,RB> : 2620 
000000006 99 FB OO1AS CALLS "2, SYSS$OPEN : | 
D QOIAC STATUS : 
iA E 1AF BLBC STATUS, 10$ + 262 
0180 8 688 001B2 PUSHR #*M<R7.RB> + 262 
000000006 99 g FB 001B6 CALLS #2, SYSSCONNECT : 
53 DO OO01BD 9S: MOVL RO, STATUS F 
09 5 E9 9010 BLBC =‘ STATUS, 10$ : 2628 
FD7A (C7? SOF OOIC PUSHAB MAIL$G.CNCT > 2630 
69 01 FB 001C7 CALLS #1, MATLSSEND_ADDR z 
if 11 OO1CA BRB 1 : 
OO7E805A BF 53 D1 OO1CC 10$:  CMPL STATUS, #8290394 > 2632 | 
0D 12 00103 BNEQ 118 ; | 
QO7E80SA BF DD 00105 PUSHL #8290394 + 2634 
000000006 00 01 FB 0010B CALLS #1, LIBSSIGNAL ; 
05 FD0O2. ««C7_:«#€9 OO1E2 11$: BLBC MAILSGL_FLAGS, 12$ + 2638 
6A 00 FB OO1E7 CALLS #0, MAICSREWIND_I_MSG : 2639 
03 11 OO1EA BRB : 
6B 00 FB QOO1EC 12$: CALLS #0, MAILSREWIND_MSG + 2640 | 
18 50 €9 OO1EF 13$:  BLBC RO. 15$ ; 
7E D4 OO1F2 14$:  CLRL (SP) t 2642 
OO7EDEOO BF DD 001F4 PUSHL #8314368 : 
000000006 00 01 FB OO1FA CALLS #1, MAILSGETMSG F 
50 DD 00201 PUSHL : 
000000006 00 02 FB 00203 CALLS #2, MAILSPUT_OUTPUT : 
50 01 DO 0020A MOVL #1. RO > 2644 
04 0020 RET > 2645 


5 
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rturunnururisrurunvrurunviurutnutunmstunisrunmutunmuuniutunns © 
PAPAS BS BEEP EEE 
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VAX/VMS 
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BEGIN 


END; 


F 
PERSONAL MAIL UTILITY 19-3 


RETURN ( 
IF _ .STATUSCSTS$V_SEVERITY] 
THEN 


TRU 
ELSE BEG 


=138% 1: 01:96 VAX-11 Bliss=32 
984 12:42: DISKSVMSMASTER: 


= CHECK_SEND(STATUS) = 
FUNCTIONAL DESCRIPTION: 


This routine is Pie. ae check if the ADD_ADDR was completely 
successful and if it w ‘t, the user is aSked if mail Should be sent 
to the users that were "tound. 


i INPUTS: 


STATUS = Status from MAILSADD_ADDR. 


i OUTPUTS: 


success if mail should be sent. 


Return status = 
= failure if mail should not be sent. 


STATUS: BLOCK(,BYTéE); ! Completion status 


! If complete success, ok 


' Delete empty Links 


S25 
mn 
© 
uw 
~ 
uv 
er 

mxAzZ 


If not partial success, error 
at ask user what to do 


END 


0000 00000 CHECK_SEND: . 


WOR Save nothing 
04 04 AC €9 00002 BLBC STATUS, 1$ 
50 01 00 00006 MOVL #1, RO 
04 boop RET 
00000000" 00 9F 000 MAILSs CNCT+48 
00000000G 00 01 FB 000 , MATLSDELEMPL INK 
07 04 A ? Bp TATUS, #7 
00000000° 00 »d5 000 MAIL$G_CNCT+56 
83 12 000 LA 
50 2 ry 6° #2, RO 
007EDE20 F DD 09 eests 400 
000000003 00 4 4 38 - MAILSGETMSG 


20-74 
IL.SR 


2 
C 


IMAIL .B32;2 


Page 114 


(34) 


matgeait VAX/VMS PERSONAL MAIL UTILITY 18-Sep-1984 9}: Oo}: ai 
000000006 00 areas 69 Fb 0003 CALLS) et 


; Routine Size: 70 bytes, Routine Base: $CODES + 27EE 


2m 


MAILSMAIL 
v04-001 


; Routine Size: 


VAX/VMS PERSONAL MAIL UTILITY 


as 


H 6 
6-Sep-1984 01:01: VAX=-11 Bliss-32 V4.0-7 
4- Hat 1 93:98 st ae ont 


Page 1 
DISKSVMSMASTER: CMAIL.SRCIMAIL. B32;2 (3 


° 3 —_ EXIT ROUTINE = 
ret FUNCTIONAL DESCRIPTION: 
68 


1 
1 
: 
re : This routine is called when a SEXIT service is executed to clean 
up. 
1 


690 BEG! 
$3) RETURN MAILSDELETELINK(MAILS$G_CNCTCCNCT_Q_LNK.STJ) 


0000 00000 EXIT onal ie: 


RD ve nothing, . + 2683 
00000000' 99 44 0000 PUSHAB malt se ; 2691 

000000006 00 01 FB 0000 CALLS SCS LE TELINE 
be 0000F RET : 2692. 


16 bytes, Routine Base: S$CODE$S + 2834 


: 838 


; Size: 

; Run Time 
; Lines 

: Memory Used: 
3; Compila 


VAX/VMS PERSONAL MAIL UTILITY 


$633 1 END 
694 0 ELUDOM 


PSECT SUMMARY 


8043 coge + 4081 data bytes 
1:47.7 


6:54.24 


1500 
; Lexemes/CPU-Min: 51859 


545 pages 


tion Complete 


-EXTRN LIBSSIGNAL, LIBS$STOP 


: Name Bytes Attributes 

: SOWNS 820 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC .ALIGN(2) 
; $GLOBALS 884 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$CODES 10308 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
>; LIBSKEYOS 8 NCVEC,NOWRT, RD, EXE, SHR, LCL, REL, ON, PIC,ALIGN(1) 
3; “LIBSSTATES 84 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, ON, PIC,ALIGN(1) 
4 cLigseeris 20 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; ABS. 0 NOVEC, *NOWRT . * NORD *NOEXE .NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0O) 
3 Library Statistics 

Beth ae tikes Aero aw Sees ee) wien Symbols -------- Pages Processing 

s File Total Loaded Percent Mapped 

: _$255$DUA28:(SYSLIBJLIB.L32;1 18619 217 1 1000 00:01.4 

: _$255$DUA28:CSYSLIBJTPAMAC.L32;1 4 25 59 14 00:00.1 

> _$255$DUA28:(MAIL.OBJIMAILDEF .L32;1 45 57 12 26 00:00.4 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MAIL/OBJ=OBJ$:MAIL MSRC$:MAIL/UPDATE=(ENHS$:MAIL) 


Fete 


RCIMAIL. B32; 2° 
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AH-BT13A-SE 
VAX/VMS V4.0 


IGITA 
ONFID 


0229 


D 
C 


N 


ENT CORPORA 


am Vax7uae va AND PROPRIET 


DIGI 
VAX/VMS V4.0_ CONF 


TI 
AR 
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Y 


